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HISTORY 

1»0 DECO CZL 
AC-E-5 

1*1*0 Closed Problem Report AA3318 

1*1*1 It was reported that a 
DL11-A operated at 110 baud caused fai- 
lure in the AREAD routine he 
cause the 200 msec* delay is not 

* ^ L of sufficient duration to alloy settin 
g of the Receiver Regis- 

a _.*. t i r Status ,8 DONE 18 bit through the Maintena 
nee bit facility* 

The time delay was increased from 200 to 600 msec* 

1*2*0 Closed Problem Report AA3643 

1.2.1 Tests 56,57,60,61, 62,63,64,65,an 
a 66 do not run properly &hen 

run on an LSI-11* This problem was r 
esolved by changing the 

branch after the CHAIN command to go back to 
test for the 

during LSI ~ U saitch in order to effect the appropriate action 

each test* 

1*2.2 Second time-out in Test 64 allows excessive 
wait for operator 

* * a ^ALf sponse * The ti5 »e delay was reduced from *'177777 SS 
to f, 60Q"« 

tlna 3 ComrT,on rout4r * e ?¥PE does not save the contents of R0 resu! 

in the loss of this information and consequent failure* 

Instructions were included to save the contents of R0 on entry 
iu i. 
o the routine and to restore them upon exit* 

1*2*4 Loss of stack contents fo 

r non»LSI»ll computers due to incor» 

rect sequence of instructions i 
n Test 65 uas also reported in 

Problem Reoort AA3803, Refer to 1,3*1* 

1*3*0 Closed Problem Report AA3803 



%m 



1*3*1 Testing of non-LSI-11 computer 
s results in the program hanqing 

- U P because the stack gets popped ana 
y in Test 65* The branch 

after the test for the LSI-11 switch in Test 6 
5 should qo to 

*<** J!? e CHAIM command for proper exit from the test for n 
on-LSI-ll 

uachines. This chanqe supersedes the change released in DSP 

MO-ll-DZLAC-0-1. 
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1.0 ABSTRACT 

This diagnostic is divided into three basic sections? 

1* A check of the console terminal interface logic* 

2* A check of 
the printing characteristics and control logic* 

. 3* An echo portion desi 
gned to check the keyboard and to aid in 

the diagnosis of terminal pr 
oblems* 

Patterns used by the printing tests were chosen for ease of visual we 

rification* The echo tests were designed for maximum flexibility. 

wi tn J r 

Test 24 alloying any desired pattern to be used* 

2*0 REQUIREMENTS 

2.1 

EQUIPMENT AMD ASSIGNMENTS 

The diagnostic is written to run on all models of t 

he PDP-11 computer 

with either a KL11 or DL11 console terminal interface* The 

diagnostic 
is preset to test up to 16 additional terminals (on DLll's) assig 
neo 
between addresses 776500 and 776676, This preset quantity (16) and 

DLNR ad and S t <776500) can be changed by depositing the quantity in 

he 1 starting address in DLADR* For example, to allow for up 
to 31, additional te 
"Wh rniinals, the address 775610 could be placed into 

DLADR and the octal equiva 

lf^ of ml 1 ^ *•?•' <2 7 > J M? u J d b ? placed into 
DLNR* The number of additional DL1 
l*s actually tested will be adjust- 

e ^ w .?y t S??l ic 3i 1 y r1 9 w ?S??F d based upon the 

first DL11 address (within 
the implied range) found to be unresponsive* Thus 
if there is no DL11 

present to match the address in DLADR only the console te 
rminal will 
be tested* Therefore^ all DLll's in excess of the console termi 

Hal 

must have contiguous address assignments with the lowest address cor» 

res 



ponding to the ¥alue in DLADR* 

The console terminal (assigned standard) can b 
e reassigned by ^ placing 

the address of its receiver status register into CO 
NADD and its re- 
ceiver interrupt ¥ector into CON?EC« This reassignment can be 

made to . 
a terminal within the set of terminals implied by DLNP an^ DL&DR with- 
out adverse effect. Note that a terminal nith a slower speed (if any) 
nil! 

determine the speed at yhich all of the terminals are tested* 
Such a termina 

1 should generally be excluded frora the test, or tested 
separately* (Refer 
to the symbol definitions in the listing for the 



2 @ 2 STORAGE 

The diagnostic program uses all of 4K of memory with exception 

©f the 

area used by the absolute loader* 
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2.3 PRELIMINARY PROGRAMS 

&ny ap 

pllcable PDP-11 diagnostics should be run on the processor* If 

any errors a 

re encountered durinq the interface cheeky refer to the 

appropriate interface 

diagnostic for further help in locating the 

problem i f needed* 

2*4 
ADDITIONAL PROGRAMS 

This diagnostic is for verification of basic terminal fu 

fictions only* 

If the terminals under test have hardware options installed run 

diag- 
nostic MAINDEC«11~DZLAF~A , the LA36 TERMINAL OPTIONS TEST* 

3*0 

LOADING PROCEDURE AND INITIALIZATION 

Load the LA36 diagnostic program tape 

following normal procedures* 

Before starting the program^ refer to the desc 

ription of the routine 

fS DLY f *« Time delays used by the program are a function 

of the CPU 
model and memory type and should be set-up before running the di 
agnos- 
tic* The routine Is preset for a PDP-11/05 with core memory. Refer 
to Section 2,1 for non-standard terminal addresses and for testing 
multiple 
DL11 Interfaces* 

If a hardware switch register does not exists the program w 
ill use the 

contents of location 176 as the value of the switches* Therefore* 
be 

sure to load location 176 with the switch value before starting the 

pro 

gram when not using hardware switches* 

If the CPU is an LSI~11 # 11/03 he sure 

to set switch register bit 9 to 
a 1. Special tests are run on the DLVll inter 
face* 



* m 



) 



4«3 STARTING PROCEDURE 



4*1 STARTING ADDRESSES 



200(B) = Run with Switch Register Control 

- perform Console T 
erminal I/O tests* 



d control 



04(8) = Run with Switch Register Control 

- skip Console Terminal I/O tests* 
210(8) = Run with Keyboar 

- perform Console Terminal I/O tests, 



(8) = 
ests* 



214 
Run with Keyboard Control 

- skip Console Terminal I/O t 



flffi. 
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4*2 Switch Register Control With I/O Tests 

km Set the switch r 
agister to 200(8) and press the load address 
swi tch* 

B* Set 
snitch register bit 9 to a 1 if the processor is an 

3* Refer to Section 5*1*5* 

C® Set fhe switch register bits 7-0 equal t 
o the paper width in 

terras of the number of columns (octal)* Ref 
er to Section 

5*1*9* 

D* Set the switch register bit 8 equal t 
o 1 or and press the 

start switch* k message will be printe 
d indicating the 

number of DLll^s being tested* Refer to Section 5*1* 

6® 

5. If bit 8 were zero when starting, the Printer tests are exe- 
cuted sequentially, after the entire series of I/O tests are 

e 

xecuted* 

F* If bit 8 was set when the start switch was pressed, the e 
n- 

tire series of I/O tests will be executed and the CPU will 

halt at location SELHLT® The program will then be waiting 
for 
control ¥ia the switch register* 

4*3 Switch Register Control - Without 
I/O Tests 

Same as Section 4*2 except in step \ ¥ set the switch register 

to 
204(8). 



^Ji 
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4*4 Keyboard Control - With I/O Tests 

A* Set the switch 
register to 210(B) and press the load address 
switch* 

R. Se 
t the switch register bits 7™0 equal to the paper width in 
terras of 
the number of columns (octal)* Refer to Section 

5 « 1 » 9 » 

c* 

Set switc^recjister bit 9 to a 1 if the processor is an 
11/03* Refer to Section 5*1* 5* 

*- ^ D * a Set Slfitc ^ § and press the start sw 
itch* A message will be 

printed indicating the number of DLll's be 
mg tested* Refer 

to Section 5*1*6* 

* E i* lf W* 9 $as zero whe 

n starting* the printer tests are exe- 
cuted sequentially after th 

e entire series of I/O tests are 
executed* 

F* If bit 8 were s 
et when the start switch was pressed^ the en- 

tire series of I/O test 
s will be executed followed by the se- 
. n _ lect test message* The program 
will then be waiting for a 

,*.* n * tes J selection via any terminal keybo 
ard* Refer to Section 
5*2* 

4*5 Keyboard Control - Without I/O 
Tests 

Same as Section 4*4 except In step A r set the switch register to 
214 (8). 

5*0 OPERATING PROCEDURE 

The program can be controlled in e 
ither of two methods! by the con™ 



^ Wk 



) 



sole switch register or frora the keybo 

ard of the terminal(s) under 

test. 



) 
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5«1 SWITCH REGISTER CONTROL 

The variou 

s snitches and their functions are listed below* Switches 

raav be changed 

ana set as desired except as noted in the specific 

snitch descriptions* Refe 

r to the detailed switch descriptions for 

further^ more complete information 



SWITCH NUMBER DESCRIPTION 

. m 15 l(up) = HAL 

T AT END OF TEST 

O(down) = CONTINUE TEST SEQUENCE 

14 l(up) = CONTINUE ON ERROR 

O(down) = HALT ON 
ERROR 

13 l(up) = DRIVE ONLY CONSOLE TERMINAL 

OCdoyn) = DRI¥E ALL TERMINALS 

INDIVID^L TEST 1(Up) = L °° P ° N 

0{doyn) = NORMAL TEST SEQUENCE 

9 

l(up) = CPU TYPE IS AN LSI-11, 11/03 
u(doyn) = 
ALL OTHER PDP-11'S 

9 Hup) = RUN TEST ONCE AND HALT 

0{down) = LOOP ON TEST SEQUENCE 

TEST NUMBER SELECTION 

7-0 NUMBER OF COLUMNS AT ST 

ART-U? 



5®1*1 Syitch 15 

With syitch 15 in the up position r the program 

will halt at the end of 
the current test* Replacing switch 15 to the down pos 
ition and press- 



ing CONTINUE will continue the normal test operation* Dur 

ina the 

halt, any of the control snitches may be changed or set as desired* 



5*1*2 Switch 14 

Placing switch 14 in the up position will cause the pro 

gram to contin- 

ue j on errors during any of the I/O tests only* With switch 1 

4 down, 

the program will halt {at ERRHLT) on any errors during the I~0 tests 

with the location of the error in RO* Pressing CONTINUE will cause 

the pro 

gram to continue if switch 14 is down* With switch 14 up* 

pressing contin 

ue will cause the program to loop on the error* 
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NOTE 

Error halts can occur only during the 
I/O tests. 
The terminal is connected to 

a serial line and there is no error 
in- 
formation returned to the program from 

he terminal* Therefore the program 

cannot report errors 
occurring in the 

terminal* Errors detected during the 

interface tests will result in halts as 
described abo 
¥e* 



5*1*3 Switch 13 

Placing switch 13 in the down position will cause 

the driving of all 
multiple terminals during the Printer tests only* If swi 
tch 13 is up^ 
only the console terminal is driven, 

** Note? Switch 13 shoul 

d only be changed when the program is waiting 

for a test selection* 



5*1* 

4 Switch 11 

Placing switch 11 up at any time will cause the program to loop 
on t ne 

^ll^hi 1 ^ 1 a ?^ long as Switch 11 remains up* Replacing switch 
down will cause the program to resume normal operation at the compl 
t ion of 
the test® 

5*1,5 Switch 9 

Placing switch 9 up at the start of the test 

will cause an automatic 
change in the DELAY timing^ and the execution of 

special DUfll I/O 
tests* The DLV11 has no maintenance mode and will cause th 



11 
e- 



e program 

to hang if tested as a DL11* 



5*1*6 Switch 8 



With switch 8 

in the do&ri position the proqram «ill continue to loop 
through the present t 

est sequence. Placing saitch 8 up will cause the 
program to halt (at SFUfLT) a 
t the completion of the current test, 
&fter the halt*, set the control switc 
hes as desired and set switches 5 
to to the next desire* test number*, and the 
n press CONTINUE to start 
the test* 
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When starting the diagnostic the operator 

can select a specific test 
rather than automatically starting the printing 
test sequence by set- 
ting switch 8 up before starting the diagnostic* Upon c 
ompletion of 
the I/O test sequence (if being run) the program Mill either ha 

SELHLT waiting for a test selection via the switch register or print 

he select test message and wait for a test selection from nny key- 
board* R f 
efer to Section 4 for further information* 

5*1*7 Switches 5 to 

Swit 

ches 5 to are used to select specific tests when under switch 

register con 

trol. Test numbers are alyays in octal* 

5^1*8 Snitches 7 to (at start 

-up only) 

It start-up only, switches 7 to are used to set the desired raaxi 

mum 

number of columns the diagnostic is to test* if the number set is 

gre 

at er than 132(10) or less than 30(10) # the program will default to 

he value set must be in octal fom. Thus # for normal oper- 
ation leave switch e 
s 7 to down to test the full 132(10) columns* 
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5 @ 2 KEYBOARD CONTROL 

The p 

rograa will be under keyboard control whenever the diagnostic is 
started at lo 

cation 210 or 214* Switches on the console switch regis- 
ter will bawe no effe 

fl Hh 8D u P<?«r terminal control except for switch 
15. The I/O tests cannot be 
selected nhers under keyboard controls 

S°« S £2P a test at ai *Y time/ type the ^R 

JIBOUT" or ^DELETE* 1 key on any 

keyboards Any terminal nay stop the test and 
select the next test if 

a Wi "R0B0UT" S or™' Mh&n a teSt iS stopped b¥ typing 

s J||pTE f V the test sill terminate and the folloying message 
typed : 



SELECT TEST DUMBER 

ly one of the 



At this time, type the desire 
d test , number followed by any 
following control characters? 



• (period) = Run the selected test once and return for another 
test selection® 

il a L "RUBOOT" ii L0 ° P °" the selected test unt 

typed* 

S ~ Start the 

test sequence with the selected test. 

, ^ Continue t© loo 
p on the printing test sequence 

until a ■•RUBOUT" is typed 
® 

The sl L fl or fi S sl nay he either upper or lower case^ but the test number 
are ichoe S be a 2 diglt octal number. The test number and terminator 

5?* by *2: he Program, thus each character will be printed twice 
It trie terminal 

«cfi s I Vi h 2lf du P le U? For all echo tests^ the ^L 11 and 
ff S ss ! 4ill only run the tes 

t ©rice (the sane as if typing a period)* For 



) 



all option tests # the ,f S H will o 
nly run the test once (the same as if 
typing a period)^ however*- typing an fS L ss 
will cause the program to 

l 2°P °!!L th f selected test* If an error is detect 
ed in the test selec- 
tion {illegal test number or control character)* a quest 
ion mark is 
printed and the message will be repeated* 



^ 
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6.1 TEST DESCRIPTION 

6*i PRINTING TESTS 

These tests are designed as a test of the print! 

nq mechanism and the 

associated^ control logic* At the beginning of each 

test, the test 

number will be printed indicating Mbich test is being executed a 

the test is a function of the number of columns, the number of columns 

being tested Mill be indicated* A detailed description nnd sample 
patterns 
for each printing test follows: 

6. 1.1 Test - Data Path Test 

This t 

est is used to test the data lines to and through the interface 

ana to the 

terminals An alternating bit pattern is sent ^hich will 

print alternating *'s 

and U's in a checkerboard pattern to the maximum 



column uidth. The starting c 
haracter for each line is alternat 
a total of four lines are printed* 



ted and 

With the kuto Line Peed Option set to produce an automatic line feed 

after e 

yery received carriage return, there Mill be a blank line 

between each pri 

nted line* 

EXAMPLES 

*u*u*u*u*u*u*u*u*u*u*u*u*u*u*rj 
*u*u*u*n*u*u*u*u*u*u*u*u*u*u*u 

6«1®2 Test 1 - Printable Character Te 
st 

This test produces a check of all 94(10) printable characters* The 



) 



ch 

aracters are printed in groups of three with three groups per line^ 
separated 

by three spaces between groups, The first column will con- 
tain all ASCII 

codes from 040 to 377* Column two yill contain all 
ASCII codes from 105 to 13 

7 -primarily the capital letter set. The 
last column will contain all kSC 
II codes from 140 to 176 - primarily 
the small letter set* 

With the Auto Lin 

e Feed Option set to produce an automatic line feed 

after every received c 

arriaqe return^ there yill be a blank line 

between each printed line. ' ' \ 
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EXAM 

PLEi 



B hhb 

EE eee 
HHFt hhh 



I f i AAA aaa 

ififfi BB 



##t CCC ccc 

III 



+ 4- + 

KKK kick 

J 9 9 



ODD ddd 

E 



&&& FFF fff 
J'* GGG qqq 

m 5X5 }}} 



NNN nun 



QQQ 



44 
4 TTT ttt 



LLL 111 

MMM inn 



{[{ n 



OOO ooo 
PPP ppp 



*RR rrr 
5SS sss 



>6 ¥¥ 

77 yww yyu 



5 UIJU uuu 



ill ZZZ xzx 

;;; ccc 
«< \w 

=== ii 
i 

>» 






6.1.3 Test 2 - Mon-printable Character T 
est 

This test checks all non-printable characters that ha^e no control 

unction in the LA36 terminal or the LA36 options (such as CR? LF, BS # 



jiBi 



) 



& BEL)* 

First the ASCII code Mill be printed followed by the mnemonic 

after a fey se 

parating spaces* Following the ®neiionIc # the actual 

control character will be 

sent three times and nothing should happen 
at the printer* This pattern 

is repeated, three times on a line^ 
until all of the non-printing characters 
haire been tested® 

With the Auto Line Feed Option set to produce an automatic 

line feed 
after e^ery received carriaqe return^ there will be a blank 1 
ine 
between each printed line* 
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EXAMPLE! 












001 


SOH 


002 


STX 






006 ACK 












m 


OLE 
DC3 


m 


DC1 
DC 


022 


DC2 


4 025 NAK 












81! 


EH 


835 


ETB 


030 


CkU 


SUB 034 FS 












035 


GS 


036 


RS 


037 


us 


177 


DEL 











6 @ i®4 Test 3 - Carriage Return Test 

ie carriage return 
sred columns 

the solenoid head 
also 
roper operation of the position decod 



)f the solenoid head from the 1 
l ~ also 



re- 



This test checks the carriage return fr 

®ra all e?en numbered columns 

and the spacing of t" 

eft margin. It is ? 

a good checlc for pre 

er® 

The test prints a full line of alternating 0's and spaces, starting 

ith a 0. ht the end of the line the print head is returned to the 

left marg 

in with a carriage return* The spaces are then filled in by 

spacing ^ the prf 

nt head out from the left margin to the first space, 

printing an fl X f % and exec 

uting a carriage return* This pattern is r< 

peated until the line is corapiet 

ed® Check to see that all X*s are in 

the middle of the. space between the two z 

eroes on either side of it* 

EXIHPLEI 

0X0X0X0X0X0X0X0X0X0X0X0X0 
X0X0X 

With the Auto Line Feed Option set to produce an automatic line fe 

after ewery received carriage return^ this test Mil! print a line of 

and spaces^ then print a diagonal line of x*s* To correctly chec*c 
the encoder, 
the Auto Line Feed Option should be disabled* 



EXAMPLES 






X 



■:;■) 



t>¥ sending 
The 
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6.1.5 Test 4 - Multiple Line Peed Test 

This test check 

s the line feed capability of the printer 

various groups of 11 

ne feeds interspaced with reference lines* 

number printed as the reference 

line Indicates the number of line 
feeds that foi!oy« The first and last 

lines also contain a string of 
dashes as reference points for measurinq the t 
otal distance between 
the two dashed lines^ i*e* # 63(10) lines. 

With the k 

utp Line Feed Option set to produce an automatic line feed 
after ewery carria 

g@ return^ the number printed will indicate one less 
than the number of line fe 

gds (the number of blank lines) that follow. 
The total distance between the two 
dashed lines will then be 69 lines. 



EXAMPLES 



04 



08 



16 



32 



15 Blank Line 



31 Blank Lines 
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6*1*6 Test 5 - Single Line Feed Test 

This test is designed to check the tim 

ing J>f,?ingle line feeds and the 

capability of doiriq line feeds in all colum 

ns» Two reference lines 

are used by this test (and Test 6) which also can be 

used to easily 

check the number of columns the printer is printing, 

The ft 

"t "ference line contains 130(19) zeroes followed by two 2"s 
it testing 13 

2(10) columns. If less than 132 columns r the line will 
contain s for two 1 

ess than the maximum number of columns followed 
by the two 2*s* This referen 
ce line is a quick check for 132(10) co- 
lumns If testing the full 132(10) col 
umns* The second reference line 
pr i n 5 s ^ a ff^ing of numbers ( 1 to 9 & ) rep 

?ated to the maximum col- 
umn* This line, again, can be used as a quick check 
of the number of 
columns* 

The line feed test is accomplished by: printing t 

he first reference 

(10) 3*1 if" S and tM ° 2 " S| then either sending 60 
||stlng 132(10) columns, or waiting 1.8 seconds for an LCV, if tes 

less than 132(10) columns. If testing 132(10) columns, nothing 

sn 

2^i, < ?i!l ap P en ^ exc ^pt for an LC¥, at the end of the line. The 3*s 
Snouia be 

lost and never printed. After the LCV, with the print head 
at the extreme rig 

ht, a carriage return - line feed will be sent fol- 
lowed by repeated backs 

lashes «\" and linefeeds to print a diagonal 
line down the paper* when a backs 
lash is printed in the maximum co- 
lumn, a carriage return will be sent imm 
edlately after the line feed 

and the second. reference line of seguential number 
s will be printed* 

A fl? r i. completing the line, a carriage return - line feed 
will be sent 

and the program will wait one second for the carriaqe return func 

tion 

to complete. After the delay,, the reference line will be repeated? 

e last line being guaranteed to be correct. Any timing problems 



* 11 



during th 

e line feeds will shoy as misprints or missing characters 

$yf!D9 t h e first 

16(10) characters of the diddle reference line* 

Also*- any paper feed pro 

bleras will cause misalignment of the slashes 

forming the diagonal line* 



Ill 



UMP 



00 00000000000000000000000000 22 
\ 



123 45 678901 23 456789D 123 4567890 

12345 67893123 45 67890123 45 67890 
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With the Auto Line Feed Option set to produce an automatic line feed 

after every received carnage return^ there will be a blank line every 



# • 



) 



plaice a 

carriage return is executed* 
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EXAMPLE! 



0000000022 
\ 
V 

\ 
\ 
\ 
\ 

\ 
\ 
\ 

\ 

1234567890 
1234567890 

6®1*7 Test 6 - 8ackspac 
e Test 

This test is designed to test the print timing as in Test 5 as well as 

the backward and foryard movement of the print solenoid head, 

fhe test cons 
sts of the same first reference line as in Test 5 then a 
carriage return-line 

feed* A full line is then printed using the fol- 
lowing pattern? 

Forward Slash "/ w 
Backspace 
Back Slash ts V 

This 

Pattern produces a line of all X*s„ The two slashes should cross 
exactly at 

the middle/ producing the X character, When the line is 
completed a carriage 

return-line feed is sent and the last two refer- 
ence lines are printed as in 
Test 5« Any timing problems will show in 
the first 16(10) characters of the mi 
ddle reference line! again as in 
Test 5« 



* i 



) 



With the Auto Line Feed Option set 
to produce an automatic line teed 

after every received carriage return^ 
there will be a blank line 

between each printed line* 

EXAMPLE! 

0000000 000 COO 000 00 000 00000 002 2 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

123 45678901234567 89012345 67890 rtrt 
12345 67893123 45678901234567890 
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6*1.8 Test 7 - Overprint Test 

This test is designed to check the spacing 

and repeatable printing 

characteristics of the printer* Three rows of ch 

aracters are each 

overprinted tvo times* The rows consist of the following c 

alternated across the lines 

Roy 1 M-SP 

Roy 2 SP»*a 

Roh 3 S»SP 

The resulting patter 

n aiii be a checkerboard pattern and the over- 
printed characters should 
be aligned properly with the initial char- 
acters* 

EXAMPLE! 

M 
MMMMMMMMMMMMMM 

With the Auto Line Peed Option set to produce 

an automatic line feed 
2il e E-> e X ery received carriage return, the lines will 
not be overprint™ 

ark line 8 M±11 be three lines of each character with a hi 

between each group of characters* The characters in each group shoul 

be in the same columns* 



EXAMPLE? 



MMMMMMMMMM 



NMMMMMMMMM 

MMMMHMMMMM 



% § § fa 






g 1 
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6*1*9 Test 10 - Printing Frequency Sweep Test 

This test prints the char 

acter **H™ repeatedly, 30(19) characters per 
line for four lines* During t 
he first two lines, the time interval 
between characters is increased from 30(1 
0) milliseconds to 1»R sec- 
onds using the following formula to create a looa 
rithmic increase? 

Mew Delay = Old Delay + Did Delay/16 * old Delay/1 
d o 

The last two lines do just the reverse* The time interval between 

haracters is decreased from 1. 8 seconds to 30(10) milliseconds 
using the 
following formula to again create a logarithmic decreases 

&lew Delay 
= Old Delay - Old Delav/16 - Old Delay/128 

Look for possible misalignment o 

f the characters or spaces between 

characters as an indication of timing pr 

obiems® 

fcfith the Auto Line Feed Option set to produce an automatic line fee 

after every received carriage return, there will be a blank line 
bet we 

en each printed line. 

EX&MPLE! 

HHHHHHHHHHHHHBHHHFfHHHHHHHHRHffW 



H 



HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHHHHHHHHHHHHHHHH 

HHHHHHHHHBHPHHHHHHHHHHHHHHHHHH 



6*1*10 Test 11 - Ribbon Feed T 

est 

This test checks the ribbon feed mechanism by printinq a single column 

check for neS ° f X * S down the left hand raar ^ in of the Pa<?e* Visually 

proper operation of the ribbon feed mechanism during this 

test* 



# It 



With the 

Auto Line Feed Option set to produce an automatic line feed 
after eirery re 

ceived carriage return, there will be a blank line 
between each printed lin 
e® 

EXAMPLE: 

X 
X 

X 
X 
X 
X 



) 
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6a«ll Test 12 - Printer Bell Test 

T 

his test checks the printer bell buffer to insure that eight bells 

are dist 

inctly heard # even when sent at the maximum transfer rate* 

The proarara sends 

8 bell codes at the maximum rate to the printer 
then naits 2*5 seconds to 
alloif the operator to hear the bells* 

6.1.12 Test 17 - Life Test 

Th 

is test runs continuously and is run as an individual^ special test* 

it is not 

part of the standard printing test sequence* 

This test prints 2 lines of each 

printable character and then reoeats 
continuously* The second line of e 
ach character is overprinted 4 

times to conserve paper* At the end of each com 
plete pass through the 

character set, a message is printed indicating the nu 
tiber or passes 

executed. If any character (except ts Rubout") is typed on the Ice 

VDoard 

during this test* the Pattern will change and restart with the typed 

character. This will only happen if keyboard control is in use* 



EXAMPLE; 

AA 
BBBBBB 



kkkkkkkkkkkhkkkkkkkkkkkkkkkkkk 
kkkkkkkkkkkkkkkkkkkkkkkkkkkk 

BB BBBBBB BB8BBBBBBBBBBB8B8BBB8B 
B8BBBBBBBB8BBBBBPBBBBBBB 



If the Auto Line Feed Option is set to produce an automatic line fe 
ed 

after every received carriage return^ the test will print six lines of 
each 

character with a blank line between the first and second lines as 

yell as bett^ 

een each group of characters* 

EXAMPLE! 

AAAAAAAAAAAAAAA 



) 



AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAA 

BBBBBBBBBBBBBBB 



BBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBB 
BBBBBBBBB8BBBBB 

BBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBB 
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6*2 ECHO TESTS 



These 

tests are designed as a test of the keyboard and an aid in iso- 
lating trouo 

les within the terminal* At the beginning of each test, 
the test nuipber will 9 

be printed indicating which test is being execut- 
es Typing a "RUBOUT" or 
9S D£LETE^ at any tirae^ whether in keyboard 
control or not*, will exit the current 

Echo test and print a test ter- 
mination message* If in keyboard control 
* 'Jfce select test message 

will be printed and the program will await a test sel 
ection as usual* 
In switch register control^ the program will halt (at SELLHLT 

for control via the switch register, A detailed description of eac 

test follows! 

6®2.1 Test 20 - Character Echo Test 

This test is de 

signed to operate the terminal in a simulated local 

mode* Any character ty 

ped on the keyboard (except a fS rubout ff ) will be 

echoed to the printer* 

If th 

e LA36 terminal is in half duplex with the Auto Line Feed Option 

avaiiabie^t 

vping a carriage return may cause a garbled response on 

the terminal during t 

his test. 

6«2«2 Test 21 - Line Echo Test # Fast Rate 

This test contin 

ually sends full lines of any character up to the max- 
imum column width, The 

test prints a "0" character when started until 
a key is typed on the keyboard* 

The program will then send the typed 
character until another character is t 
yped or the test is terminated 

TL t ? pl 2 g f§ fs rubout» 9 The characters are transm 
itteo at the maximum 
rate with a carriage return-line feed inserted after 



;) 



every 132(10} 
printable characters* 

If the L&36 is in half duplex when runn 
ing this test, characters may 

be lost or garbled whenever a character is type 
d on the keyboard* 

With the Auto Line Feed Option set to produce an automatic 

line feed 
after every carriage return # there will be a blank line between 
ea$h 

printed line« 



6*2*3 Test 22 - Line Echo Test^ Slow Rate 

This te 

st is identical, to Test 21 except a delay of 1*8 seconds is 

inserted betwe 

en each character to allow the print head to perform an 

LCV between characters* 



^ 
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6*2*4 Test 23 - Charac ter/Code Echo Test 

This test will print the octal c 

ode received by the processor followed 

by the character or the mnemonic of the 

character every time a key is 
pressed on the keyboard* the parity of the rece 
lyed code will he in- 
dicated as either odd or even* Allow sufficient time 

between char- 
acters for the line to be printed* 

With the Auto Line Feed Op 

tion set to produce an automatic line feed 

after every received carriage 

return^ there will be a blank line 

between each printed line* 

EXAMPLE! 



¥EN 



301 
263 
215 

240 



A 
3 

CR 

SP 



ODD 
ODD 

E 



6*2*5 Test 24 - Selected Pattern Echo Tes 

t 

the 3 t6St 1S deslgned to qlve maintenance the flexibility to choose 



In ?h2 Jrfei ernS f ° r isolating an ¥ specific problems which may arise 
Type any characters {except controi»C and rubout) and each character 



in the 






putted e ^ hoea as ^Ped* A maximum of 256(10) characters may be in* 

o carriage returns or line feeds are inserted by the pro- 

gram# all charac 

ters must be inputted by the operator* To terminate 

the input string type a co 

ntral-C/ the program will then continually 

echo the. moulted pattern* To sto 

P the printing^ type control»C, The 

program will stop printing the pattern and 

will wait for either anoth- 
er pattern input terminated by a control-C, or the 

same pattern may be 
used again by typing control-C* To exit the test at any t 

8S rubout^« 



§ • 



) 



When any options are available/ be careful what char 
acters or char- 
acter sequences are selected* 

6*2*6 Test 25 - Bell Echo 
Test 

This test is designed to test the bell on column 64 if typing has ©c« 

curred on the line* The test prints a message? 

T¥PE ANY PRINTABLE CH&R 
&CTER AND LISTEN FOR 8ELL .,•••••••.•• 



After the test message is printed^ typ 

e any printable character on the 

keyboard* The character will be echoed and th \ 

e bell should ring* The I 

message Mill then be typed again* Type the ff rubout ss k - y 

ey to terminate 

the test at any time* 



) 
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6.4 STANDARD I/O TSSTS 

These tests 

are designed as a brief check of the console terminal in- 
terface logic* E 

ach check is structured as an independent test and 
the switch register control 
s may foe used, A description of each test 
is given in the program listing. 
Any errors encountered during the 

l£?-£ e ?£ s y iH cause a halt at location S, SR 
RHLT fs if suitch 14 is down* 



w : ^P 



) 
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m 

600 

930 

1000 

im 

1300 

if 



2105 

Ik 

2500 

1^88 

2800 

ins 

3200 

if 



3800 



4200 
4300 



.TITLE CZLACEO LA36 TERM (DL11 & KLil) 
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*SBTTL SWITCH REGISTER OPTIONS 



JSWITCH 


} 




; 


15 






; 




i 


14 


/ 








j 


13 












11 


? 




? 


09 


7 




; 




? 


08 



UP (1) 
DOWN (0) 

UP (1) 

DOWN (0) 

DOWN (0) 

UP (1) 
DOWN (0) 

UP (1) 
DOWN (0) 

UP (1) 
DOWN (0) 



? 07-00 



HALT AT COMPLETION OF CURRENT TEST 
CONTINUE NORMAL TEST SEQUENCE 



LOOP ON INDIVIDUAL TEST 
NORMAL TEST SEQUENCE 

CPU TYPE IS AN LSI-U, PDP-11/03 
ALL OTHER PDP-11 CPU'S 

HALT TO SELECT TEST AT END OF CURRENT TEST 
LOOP ON TEST SEQUENCE 

TEST # SELECTION 

* OF COLUMNS AT START-UP 
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4700 

3B 

5200 
5300 



5600 
5700 
5800 

188 

m 



? 

}2. 

I 
;3. 



?4-~ 

? 

} 

? 



.SBTTL SPECIAL OPERATIONAL INFORMATION 



BE CHANGED BEFORE START UP. 



eu uijojuun ur inc. tUNoULS 
ONADD" AND "CONVEC" SHOULD 



fiB0 B'E^TOriH^^RJKS^w^r 

IF CPU IS A PDP-11/03 , LSI-11 SFT SWTTPH pprTCTCD 
BIT 09 TO A 1. SPECIAL'TESTSARE RUN ON C THE E DLYll! 

MEMORV S rnrI?rn5 fr-»2*S8 W S R i«fS5TSS REGISTER SHOULD USE 
MfcMOKY LOCATION 176 AS A SOFTWARE SWITCH REGISTER. 



w 



CZLACEO LA36 T 
SYSTEM EQUATES 



t i 
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.SBTTL SYSTEM EQUATES 



m 



win 

12300 



0Q2Q 



55 



I 

ii 



00060 



004000 

§11111 



181881 

life 



1 



ill 



REGISTER EQUATES 

R0 = *Q 
R1 = W 
R2=*2 
R3=%3 

R5=*5 
SP=%6 
PC =17 
PSW=177776 

SYSTEM EQUATES 



BIT2=4 
BIT3=1Q 

mm 

BIT6=10 

Urn 

BIT9=I0 



BIT15=105600 

SCOPsB=BITl4 
NITRSW=BIT11 



26 



) 



PRTY4=2 

ACRLF=2UD 

LSI11=BIT9 

PROGRAM TRAP EQUATES 

EHALT=EMf*2 

STRDRY=EMT+3 

STPCRV=EMT«-4 

CHAIN=EMT*5 

CHALT=EMT*6 

TYPEM=EMT*7 

DELAY=EMT+10 

TTYCfL=EMT*ll 

CRLF=EMT*12 

SCRLF=EMT+13 



;SCOPE SWITCH 
?TEST LOOP SWITCH 

;PRI0RITY LEVEL DEFINITIONS 



JFLAG FOR LSI-11, 11/03 



CZLACEO 
SYSTEM 



EQUATES EPM CDL11 *" KLU) MACR ° M111 ° 



3000 

Ml 



mm 
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tEl6¥5=lMT+15 

PRTHDR=EMT*16 

PRNT=EMT«-17 

READ=EMT+2Q 

AREAD=EHT*2i 

CR=EMT«-22 

BTOASC=EMT*23 

FORWP^EMT+24 

READC=;g>(T+25 



CZLACEO LA36 TERM (DL11 S, KL11) MACRO 
------ - sTARnr- *"""" 



TRAP CATCHER & 



ING ADDRESSES 



OOOOOO 

ma 
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.SBTTL TRAP CATCHER S, 

.ENABL ABS,AMA 
.ASECT 



.♦2 
HALT 
MACHERS .+2 

HALT 

.♦2 

HALT 

. + 2 

HALT 

EMTINT 

PRTY7 

. = 42 



. = 46 
LOGICAL 
.=52 
010000 



.=174 



DISPREG: 

swreg: 



888llg 

000552 



JMP 
JMP 
JMP 
JMP 



.WORD 
.WORD 



START1 
START2 
STAPT3 



STARTING ADDRESSES 



;UNASSIGNED TRAP 

?SP OVERFLOW, BUS ERROR TRAP 

JRESERVED INSTRUCTION TRAP 

?TRACE TRAP 

;TRAP TO CALL IOX 

JPOWER FAIL TRAP 

?EMT TRAP 



?SOFTWARE DISPLAY 
?SDFTWARE SWITCH REGISTER 

?START UP WITH I/O TESTS RUNNING 

;START UP, SKIP ALL I/O TESTS 

? SJA R T UP TERMINAL CONTROL WITH I/O TESTS 

;START UP TERMINAL CONTROL WITHOUT I/O TESTS 



;BOTTOM OF STACK 
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wmlli 




• SBTTL SYMBOL DEFINITIONS 



7570 
00000 



CONADD! 
CONYEC: 
DLADR: 



dlnr: 

TKSl 
TKB: 
TPSS 

tpb: 

tkvtr: 

tklvl: 

tpvtr: 

tplvl: 

FSTDL: 

CNTLSW: 

RTNNO: 

NXTST: 

SCOPTR: 

prgid: 
crbuf: 
ctra: 
width: 

LEVEL: 
DLCNT: 

ictr: 
rept: 
brctr: 

COUNT3: 

xcsr: 

timer: 

spcnt: 

curtst: 

tempch: 

parity: 

pchar: 

lfcnt: 

inchk: 

temp: 

sr: 

cmtr: 



177560 
176500 



16* 

177560 

177562 

122564 

177566 

PRTY4 

64 

PRTY4 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

251 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

177570 

OPEN 



? *RP. R PS CONSOLE RECEIVER status REG 
^CONSOLE TERMINAL INTERRUPT VECTOR 
! A S D £r E i S i S OF FIRST DL11, DEFAULT TO DL11-A,B 
;IF DL11-C,D#E,, THEN 

? SET TO 175510 FOR FIRST 16 (OF 31) OR 
;SET TO 176000 FOR LAST 16 (OF 31) 
? 2 R JST, OTHER DESIRED START ADDRESS 
?* Q p DL H S TO BE INITIALLY ASSUMED 
CONSOLE RECEIVER STATUS REG 
? CONSOLE RECEIVER BUFFER 
?CONSOLE TRANSMITTER STATUS REG 
^CONSOLE TRANSMITTER BUFFER 

im: mm wmmvMr 

;C.T. TRANSMITTER INTERRUPT VECTOR 
;C.T. TRANSMITTER PRIORITY LEVEL 
; ADDRESS OF FIRST ACTIVE DLI1 
JCONSOLE TERMINAL CONTROL SWITCH 
CONTAINS CURRENT TEST NUMBER 
CONTAINS ADDRESS OF NEXT TEST 
yCONTAINS ADDRESS OF TEST SCOPE ENTRY 
CONTAINS TEST PROGRAM INDICATORS 

^CURRENT PAPER WIDTH, BINARY 
?LEVEL OF EXECUTION 
*! ,9 F «yy LT I p LE DL11S 
?I/0 TEST ITERATION COUNT 
? IS. M , P .-SI 0R A GE P0R TESTS E021 5, E022 
^COUNTER FOR ROUTINE *AREAD A 
'COUNTER F0R ROUTINE "PRINTC" 

;address of multiple dui STATUS 

?1 MSEC COUNTER FOR ROUTINE "DELAY" 
;COUNTER FOR TEST ROUTINE M PT3" 
? ADDRESS OF CURRENT TEST 
;TEMp STOR FOR ECHO TESTS 
?P . A , R £ T X„FL AG EQR RECEIVED CHAR 
;CHAR CODE WITH PARTTY BIT 
;COUNTER FOR TEST ROUTINE "PT4" 

m®M® UKtI.E4Wi 

?SW REG ADDRESS 

?TIME COUNTER FOR LSI-11 TESTS 



• • 



CZLACEO LA36 TERM (DL11 S, KLll) MACRO MlllO 
SYMBOL DEFINITIONS 



25-AUG-7B 10:13 PAGE 6 



) 



CZLACEO LA36 TERM (DL11 S, t 
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I 

m 
m 



1200 D00730 

1388 mm 

1500 000736 
000744 



Mb 



0057 40 

mm 




.SBTTL PROGRAM INITIALIZATION 5, CONTROL 



« ******** 



jCQMMON HALT— 
J HILL I 
J A NEW 



i ******** 



-WHEN IN SWITCH REGISTER CONTROL THE CPU 
E ADVANCED TO THIS COMMON HALT WHERE 
TEST WILL BE EXPECTED TO RE STARTED 



SELHLT; 
STARTl! 



START2! 

START3! 

STARTS 
STARTX! 

10$: 



TST 
TST 

Mi T 

MOV 

MOV 

BR 

MOV 

MOV 

BR 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

iv 

MOV 

CMP 

TYPE 

NOSWR 

MOV 

MOV 

MOV 

CLR 

MOV 

CLP 

CLR 

CLR 

MOV 

JSR 



LEVEL 

vsm 

-(RO) 

#177777, ATOX 
&CHALT,WAITF 
STARTX 

STARTX 

#AT1,AT0X 

ftCHALT,WAITF 

-pfloijsp 



pft,T ER 




>TEST CURRENT LEVEL 
t?gT N SBDFES°s'og°c!eL T ES A i S 



?P 



LER INTO RO 



JRETURN FROM INTERRUPT 
JFORCE END OF I/O TESTS 

jforce sr control 

;FORCE TERMINAL CONTROL 
JFORCE ALL I/O TESTS 

JFORCE TERMINAL CONTROL 
JFORCE END OF I/O TESTS 

JFORCE ALL I/O TESTS 
JFORCE SR CONTROL 
JSET STACK POINTER 
JSAVE CURRENT VECTOR 

JSET UP TIMEOUT VECTOR 

JTRY TO REFERENCE H 

JBRANCH IF NO TIMEO- 

?50i!!I„I SOFTWARE SWITCH REGISTER 
J RE STORE STACK 

;TELL OPERATOR TO USE SOFTWARE 
; SWITCH REG AT LOC 176 

FALLOW INPUT CHECKING 

JCLEAN UP 

JINITIALIZE PROGRAM FLAGS 

^INITIALIZE TERMINAL CONTROL SWITCH 

JINITIALIZE LEVEL 

JSET ADDR POWER FAIL ROUTINE 

JSST UP CONSOLE TERMINAL ADDRESS 



?f RY TO REFERENCE HARDWARE SW REG 
?»?ANCH IF NO TIMEOtIT TRAP OCCURS 
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mm 

000204 




• ********** 



JREAD THE PAPER WIDTH, NUMBER OF COLUMNS, 
?FROM SWITCH REGISTER POSITIONS 0-7. SAVE AND 
JCONVERT TO 3 ASCII CHARACTERS. A WIDTH GT132 
?OR LT3Q COLUMNS (DECIMAL) WILL BE ABORTED TO 
>THE SWlTCHgS MAY BE CHANGED ONCE THE PROGRAM 

JMESSAGE " 

I ******** 



000000 



000240 177754 



is: 

51! 

4S: 
5$: 



MOV 

BIC 

CMP 

BGT 

CMP 

BHI 

MOV 

MOV 

MOV 

MOV 

BTOASC 

BR 

BR 

MOV 

PRINTC 

TYPEM 

STARTM 

MOV 



STARTED TO PRINT. 

5fMlo,Rl 

Pl,»204 

#204, Rl 
Rl-WIDTH 
#HDR0 r RO 
#3,R2 



ttk 



E OR THF DL11 COUNT 



5S 

#0,P0 



#NOP,4$ 



?PUT (SR) INTO Rl 

;SAVE ONLY BITS 0-7 

?TEST NO. COLUMN GT132 

^COLUMNS GT132, DEFAULT TO 132 

?CHECK IF NO. COLUMNS LT 30 

;NOT LT 30 NOR GT 132 

JCOLUMNS LT 30 OR GT 132, DEFAULT 

;SAVE NO. COLUMNS IN WIDTH 

?HDDR TO STORE ASCII COLUMN VALUE 

JDO A 3 CHAR. CONVERSION 

;CONVERT NO. COLUMNS TO ASCII 



JTRANSMIT A 

JNULL CODE 

;TYPE PROGRAM TITLE FIRST TIME RUN 
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001320 
177334 
177332 
177374 



000010 
177344 



• ********** 

?THIS NEXT PART CHECKS THE PRESENCE OF DL11-A OR DL11-C 

;STARTING AT 776500. A MESSAGE WILL BE PRINTED INDICATING THE NUMBER 

;PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF 

?THE MULTIPLE DLllS IN THE SYSTEM IF SWITCH 13 IS DOWN (0). 

• ********** 



mm 

012767 



177254 
177266 
003676 

005266 



6S: 


MOV 


#END2A,MACHER 
DLADR,R0 
DLNR,&1 
DLCNT 

#END2,MACHER 
R0,FSTDL 






MOV 






MOV 


; 




CLR 


7 


END3: 


TST 






MOV 
MOV 


I 


IS: 


BR 
TST 


(^0) 


} 


2S: 


ADD 


#10, RO 
DLCNT 


\ 




INC 


} 




DEC 


Rl 






BEQ 


END4 


} 


END2A: 


BR 
DEC 


1! 


\ 




BEQ 


END4 






ADD 
BP 


#10, RO 
END3 


\ 


END2: 


POPSP2 




y 


END4: 


MOV 
MOV 


#dlu§S,ro 






MOV 


#2,R2 


j 




BTOASC 




; 




um 







INITIALIZE TIME OUT TRAP 

ADDRESS OF FIRST DL11 TO RO 

SET DL CHECK COUNT 

INITIALIZE DLCNT 

IS DL PRESENT? 

YES, RESET TIME OUT TRAP 

STORE ADDRESS OF FIRST DL11 

CONTINUE 

IS DL11 PRESENT 

POINTER AND DL11 ADDRESS 

INCREMENT COUNT OF DLll'S 

DECREMENT DL CHECK COUNT, DONE? 

BRANCH IF DONE 

CHECK PRESENCE OF NEXT DL11 

DONE DL CHECK? 

YES, EXIT 

NO, CHECK NEXT DL 

CONTINUE 

DL11 NOT PRESENT 

GET * DLll'S 

ADR OF ASCII CHAR STORAGE 

* OF ASCII CHARS 

CONVERT NUMBER 

TYPE MESSAGE 



*********** 



?EXECUTE THE STRING OF CONSOLE TERMINAL I/O TESTS 
?THEN EITHER HALT AT LOCATION SELHLT OR CONTINUE WITH 
?PRINTER TESTS AS A FUNCTION OF SR RIT 8. 
j********** 



177777 
177234 



CLR 

CLR 

CMP 

BEQ 

MOV 

FORWD 

JMP 



RTNNO 

LEVEL 

ATOX, #177777 

SKIP 

#AT0,NXTST 

OCUPTST 



?SST ROUTINE NO s 

7SET LEVEL = 

;SEE IF I/O IS TO BE SKIPPED 

?*DDRESS OF FIRST I/O TEST 
;SET UP TEST PARAMETERS 
;GO TO I/O TEST ROUTINE 



* • 
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. ********** 



THIS PORTION IS THE COMMON RETURN 
FOR ALL THREE CLASSES OF TESTS. 



i-tf r «. 



... ERROR OCCURRED DURING 
ERATOR.CAN CAUSE THAT TEST TO 



AN 



I/O TEST THE 

... -_ BE LOOPED 

WITHOUT ANY FURTHER ERROR HALTS BY 

ilEiiHf.iZ'Vffn; MV«ffi HlHsk* 1 - 

ERROR HALT TO OCCUR AGAIN IF IT STILL EXISTS. 



2— IF THE OPERATOR IS IN THE MAINTENANCE 

MODE (PIT 8 SET = 1 AT START UP TIME), THE 
SELECTED PROGRAM WILL LOOP CONTINUOUSLY 
IF SR BIT 11 IS SET=I. IF BIT 11 IS =0 
THEN THE PROGRAM WILL BE ADVANCED TO 
THE NEXT TEST IN IT'S CLASS IF BIT 8=0. 



) 



AS LONG AS BIT 11 AND 

BIT 8 ARE £ THE CLASS OF TESTS SELECTED 

WILL BE CONTINUOUSLY SEQUENCED THROUGH. 

IF BIT 11 IS AND BIT 8=1, 

WILL HALT AT LOCATION SELRLT 

NEXT TEST NUMBER TO BE SET I 



r*ft*****ft 



SWITCH REGISTER. 



THEN THE CPU 
T AND WAIT FOR THE 
"N THE 



177214 CHAINN! BIT 

BEQ 



000400 
00r>146 

177152 
177066 
177076 



IS: 






177170 5S: 



6S: 



HP 



CTL 



BPL 
BIT 

BEQ 
CMP 
BEQ 
MOV 
RTI 
BIC 
TST 
BEQ 

BEQ 
RTI 
DEC 
BEQ 
RTI 
BIT 
BEQ 
JMP 
POPSP2 



CHAINYS NOP 
TST 
BPL 
MOVB 
HALT 

IS! TST 

BEQ 



|U,CNTLSW 

PRGID 
3S 

|SCOPSW,dSR 

|-l,SCOPTR 

&SCOPTR/&SP 

JBJT^PRGID 

$NITRSW,gSR 

JS IR 

#PITB r »SR 

wIlTF 



w 

RTNNO,R0 
LEVEL 



CHECK IF TERMINAL CONTROL 
BRANCH IF NOT 

BRANCH IF ERROR BIT NOT SET 

ERROR, CHECK IF SCOPE OPTION ON 

BRANCH IF NO SCOPING 

YES, CHECK IF OK TO SCOPE THIS TEST 

BRANCH IF NOT OK 

PUT ADDR OF SCOPE ENTRY INTO STACK 

GO TO SCOPE ENTRY IN TEST 

CLEAR ERROR IND. IN PRGID 

CHECK LEVEL 

BRANCH IF LEVEL=0 

TEST LOOP SWITCH ON f=l) 

BRANCH IF NO LOOP TEST 

GO BACK TO TEST 

DECREMENT TEST ITERATION COUNT 

BRANCH IF COUNT=0 

NOT ZERO, REPEAT TEST 

TEST IF SEQUENCE TEST (BIT8) 

BRANCH TO NEXT TEST IF BIT8=0 

GO WAIT FOR MORE INPUT 

POP 2 OFF STACK 

THIS FORMERLY WAS RESET 

CHECK SR 

BRANCH IF NO HALT WANTED 

CURRENT TEST NUMBER TO RO 

HALT (NOT FOR TEST SELECTION) 

TEST THE CURRENT LEVEL 

BRANCH IF 



') 
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mm 

mm 

005266 

177056 
177777 

000400 



176216 

177036 
177026 

177012 
177056 



nn 176122 



177002 
176754 



000006 176074 

m\ 

000037 
176706 
000200 176676 

mm utm 

176700 



NEXTl: 
• ***** 
JWAIT 

/ 

; 

7 

; 



MOV 

MOV 

FORWD 

CMP 

BNE 

MOV 

W° 

CMP 

BNE 

BIT 

BNE 

BIS 

MOV 

MOV 

MOV 

FORWD 

JMP 

INC 



#6 fc MACHER 
|SPB0T,SP 

#-l,NXTST 

»AT0/NXTST 

BCURTST 

#-l,NXTST 

NEXT 

IIH!'" R 
|PUM R 1l D 

|6,MACHER 
SSPBOT/SP 

PCURTST 
LEVEL 



;CLEAN UP 

JSET UP STACK POINTER 

?SET UP VALUES FOR NEXT TEST 

JSND OF I/O TESTS (=-1) 

;branch if not end 

jreset nxtst to first i/o test 

IIS t t8 p tI^ 0ES for next test 

Send of i/o tests (=-d 

?S1!ScS f i? a 3St test selec »°» »"ht ««»» 

JBYPASS SCOPING 

?PROD TESTING, GO TO PRINTER TESTS 

?SET UP STACK POINTER 

?SET UP NEXT TEST PARAMETERS 

?GO TO ROUTINE 



gAD p68gJamJ88mISr"| fiTQ BITS 0-5 OF THE SR 
£! SR BIT H = l TQ^LOOP OnJeLECTED TEST 



-SET SR BIT 11=0 AND BIT 8=0 
SEQUENCE OF SELECTED TESTS. 

"SET_SR_BIT 11=0 AND BIT 8=1 
~ TEST ONCE 



TO LOOP THROUGH 

TO HALT AGAIN AFTER 



Hi 



CHALT 

MOV 

MOV 

MOV 

BIC 

CMP 

BLOS 

CLR 

BR 

BIS 

CLC 

ROL 

MOV 

CMP 

BEQ 

FORWD 

JMP 



#6,MACHER 
|SPBOT,SP 

817^700, RO 

Is'* 37 

PPGID 



IT7, PRGID 



22 



'SSI yP. STACK POINTER 
?GET CURRENT SW REG 

;TEST IF PROG NO. IS I/O TEST 

tWHsK thll ttdl- k " ECH0 0R PRIBIER 



?BYPASS SCOPING 
JCLEAR C BIT 

E?I5I'* WA " F ?TEST IF LEGAL T EST NO. 

WAITP ;BRANCH IF ILLE""" 

A <M.n*» ' SET TJP TEST PA 

gCURTST ;GO TO TEST 



LEGAL 

PARAMETERS 



$£>££!! i^iH^^VcS^"*™" M1U0 25 - AUG - 78 10!l3 PAGE " 



'■■&" 



ill 
w 




176606 
176602 

mm 

004400 176602 
004000 176572 

000400 176560 
177452 

mm 17662 ° 

176602 

176564 000040 

000036 



. ***** 
?TTY1- 



! 

J***** 

TTYl: 



IS: 
2$: 

ttyib: 



IHI S «SE£L I 9 N -I§ "SIP HHEN THE diagnostic rs BEING controlled by 

S?s» i uggs i NAL hJ T »j s i7? c t ti 9 ' e wS§ ly e ? he »t n T s?iRr DiA fM" E Q r ic 
miJ^jeMST'WMHi'JSELai^s? r sT No -" hust be the 2 

"l" TO LOOP ON TEST 
"S M TO LOOP ON SEQUENCE 



- TO EXECUTE TEST ONCE 
ALL SPACES WILL BE IGNORED. AN ILLEGAL INPUT WILL 
AND THE RETYPING OF THE ABOVE MESSAGE. 



FLAGGED BY A 



1$: 



mm 



176462 



000516 
060005 



176516 000040 
000036 

hMi 176414 



POPSP2 

TSTB 

BPL 

MOV 

BIC 

CMP 

BNE 

BIC 

BR 

BIT 

BEQ 

RTI 

BIT 

BEQ 

JMP 

MOV 

MOV 

DELAY 

TYPEM 

MESG3 

CLR 

READ 

CMP 

BEQ 

MOV 

DELAY 

PR NT 

^9X B 
JSR 
BR 
MOV 

lit 

ASL 

READ 

CMP 

BEQ 

MOV 

DELAY 

PRNT 

MOVB 

JSR 

BR 

ADD 



8TKB,R5 

|44}0,CNTLSW 
|NITRSH/CNTLS 

SBIT8,CNTLSW 

TTYlB 

CHAINY 



TEMPCH,*40 
#30.,R0 



R0,R5 

"§ 

R5 

TEMPCH,»40 

#30.,R0 

0TKB,aTPB 
PC,TESTC 

R0,R5 



;POP 2 FROM STACK 
JTEST IF ANY INPUT 
;BRANCH IF NOT 
;GET CHAR 
?MASK BITS 
?CHECK IF RUBOUT 
JBRANCH IF NOT 
?CLEAR LOOP BITS 

?CHECK IF LOOP ON TEST 
;BRANCH IF NO LOOP ON TEST 
?LOOP ON TEST 
?TEST IF LOOP ON SEQUENCE 
;BRANCH IF NO LOOP ON SEQUENCE 
?CHAIN TO NEXT TEST 
;STOP INPUT CHECKING 
?DELAY FOR HALF DUPLEX 



;type message 

;allqw input checking again 

?wait for input 

;test if char is a space 

;branch if yes 

;delay for half duplex 

?READY? 

;ECHQ CHAR 

;CHECK IF CHAR IS OK 

;NO, ERROR 

JOK, PUT CHAR INTO R5 

?SHtFT INTO POSITION 5-3 



;WAIT FOR NEXT CHAR 
?CHECK IF A SPACE 

;branch if space 
;delay for half duplex 

?ready? 
;echo char 

?CHECK IF CHAR IS OK 

JERROR IN CHAR 

;OK,R5 NOW = OCTAL TEST NO. 
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176456 
000036 



176354 

mm 




3$: 



176274 4$: 
175436 5$: 



176210 
001700 



BEQ 

MOV 

DELAY 

PRNT 

MOVB 

MOV 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BNE 

MOV 

BR 

MOV 

MOV 

MOV 

CMP 

BHIS 

CMP 

BHIS 

CMP 

BLO 

MOV 

BR 

JSR 

BIS 

CLC 

ROL 

MOV 

CMP 

BEQ 

FORWD 

JMP 

PRNT 

MOVB 

BR 



TEMPCH,#4Q 



»TKB,»TPB 

TEMPCH,»154 

5$ 

TEMPCH,#123 

TEMPCH,«163 

TEMPCH,#56 

|l,CNTLSW 

fr401,CNTLSW 

#6 X MACHER 

#SPBOT,SP 

R5,ft40 

85 

R5,*30 

R5/#20 

65 

*1,CNTLSW 

PC,CONIT 
#BlT7,PRGID 

R5 

PRGTAB(R5),NXT 
NXTST,#WAITF 
85 

acURTST 

tt77 f flTPR 
TTYlB 



;WAIT FOR TERMINATION CHARACTER 
?CHECK IF SPACE 
^BRANCH IF SPACE 
?DELAY FOR HALF DUPLEX 

?READY? 

>ECHO CHAR 

?SET BITS 11 & 

;NO f IS IT AN "L" ? 

JBRANCH IF YES 

?CRECK LOWER CASE 



;NO € IS IT AN "S" 
;BRANCH IF YES 
;CHECK LOWER CASE 

?ND, IS IT A "." ? 

?ND, ERROR 

?YES SET ONLY BIT IN CONTROL WD 

?SET BITS 8 & 

?CLEAN UP 

?INIT SP 

?IS THIS AN I/O TEST 

;BRANCH IF YES 

?IS THIS AN OPTION TEST? 

?SKIP IF YES 

?IS THIS AN ECHO TEST 

?BRANCH IF NOT 

;FORCE ECHO TEST TO A SINGLE RUN 

?LE AVE THIS TERMINAL AS CONSOLE 

PRESET CONSOLE TERMINAL ADDRESS 

?BYPASS SCOPING 

JCLEAR C BIT 

st;addr of test to nxtst 

JCHECK IF TEST EXISTS 

;BRANCH IF NOT 

;SET UP TEST PARAMETERS 

;GO TO TEST 

?CHECK IF PRINTER IS READY 

?SEND A "? M 

JTRY AGAIN 



* t 
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CHECKS THAT THE INPUTTED CHAR&CTER IS BETWEEN AND 7 INCLUSI¥E 

JCHECK IF NUMERIC AND EQ OR GT 

?BRANCH IF OK 

JERROR RETURH 

?CHECK IF EQ OR LT 7 

;BRANCH IF OK 

?ERROR RETURN 

?SET UP RETURN ADDRESS 

?GET CHAR 

?SAVE ONLV THE DIGIT 

; NORMAL RETURN 



r.wrun*R0 
J177776„R0 



, ) 
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389U 
39000 
39100 

13388 

39400 

m: 

39700 



?SPARE 
7 SPARE 
?SPARE 
JPRHRE 
;SPARE 
?SPARE 



?DATA PATH TEST 
^PRINTER CHARACTER TEST 
?NON-PRINTJNG CHARACTER TEST 
JCARRIAGE RETURN TEST 
fMULTIPLE LINE FEED TEST 



?OVERPRINT TEST 

JPRINTING FREQUENCY SWEEP TEST 

JRIBBON FEED TEST 

^printer sell test 
;sp*re 

?SPARE 

? SPARE 

;SP*RE 

;LIFE TEST 

^CHARACTER ECHO TEST 

?LINE ECHO TEST, FAST RATE 

JLINE ECHO TEST, SLOW R&TE 

;CH&R*CTER/CODE ECHO TEST 

^SELECTIVE PATTERN ECHO TEST 

?BELL ECHO TEST 

; SPARE 

?SPARE 



?SP*RE 

?SPARE 

?I/0 TEST NO. 

?I/Q TEST NO. 

?I/0 TEST NO. 

?I/0 TEST NO. 

;l/0 TEST NO. 

\m ?ES! 88: 

Jl/O TEST NO. 

m Hi? BB: 

;I/0 TEST NO» 
?I/0 TEST NO. 

im mi B8: 

?I/0 TEST NO. 
?I/0 TEST NO. 
?I/0 TEST NO. 
?I/0 TEST NO. 
;I/0 TEST NO. 
?I/0 TEST NO. 
?LSI TEST NO. 
?LSI TEST NO. 
?LSI TEST NO. 
?SPARE 
JSP&RE 
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WAITF ?SPARE 

WAITF ?SPARE 

WAITF ;SPARE 

WAITF JSPHRE 

WAITF ;SPARE 

WAITF ?SPARE 

WAITF ;SPARE 



• ********** 
|EMTINT 



0000 
0000 
0000 



177001 
000000 



1$: 



ill* - 



MOV 

SUB 

MOV 

CMPB 

BLOS 

HALT 

BR 

2S: ROL 
BIC 
ADD 
MOV 
CLR 
MOV 
RTI 

3S! JMP 

E«TT»B, m 

EHLT 

STLSRV 

STLSPV 

CHAINN 

CHLT 

TYPM 

DLY 

TTY1 

SCRLF 

fSCRLF 

SLF 

SPRTC 

SPRHDR 

SPRNT 

sread 

SAREAD 

SCR 

SBTASC 

SFORWD 

SREADC 

SPARET 

SPARET 

SPARET 

SPARET 

SPARET 

SPARET 



WM SP} 
fjfchf" 



#177001, asp 
#EMTTAB,§SP 

gc spwasp 

-(SP) 
#3$,-(SP) 

»(SP)+ 



.ROUTINE FOR TRAPS THROUGH 



;PUSH STACKED PC TO GET A WORK COPY. 
?SUB 2 TO POINT TO CALLING TRAP INSTR. 



(Q) 



?place trap instr into this stack work area. 
7examine its right side. (q) 
;branch if within range of established table. 
?else halt. 

;mult instr by 2 to get word displacement. 

?strip off op code and ls bit. 

;add in starting address of table. 

jfrom table get out desired pointer. 

?push a zero psw. 

>push a pc = to |3s of this routine. 

;do rti (pop-pop) to establish the zero psw. 

;jmp to routine leavi"~ 

;me 



?ING STACK AS FOUND. 



nJ8 8 *S$t°lffl;8I R8SHSE 

JUNCONDITIONAL HALT 

^KEYBOARD VECTOR/PRIORITY SETUP 

?PRINTER VECTOR/PRIORITY SETUP 

;COMMON TEST EXIT 

?SR BIT 15 HALT 

JMESSAGE OUTPUT ROUTINE, MULTI DEVICES 

;DELAY ROUTINE 

;CONSOLE TERMINAL CONTROL 

?CARRIAGE RETURN-LINE FEED TO ALL DLll'S 

?CARRIAGE RETURN-LINE FEED TO CONSOLE 

?LINE FEED ONLY (TO ALL) 

;PRINT CH*R 

;PRINT TEST HEADER 

;PRINTER READY 

?READ CHAR 

?I/0 TEST READ ROUTINE 

JCARRIAGE RETURN ONLY (TO ALL) 

;BINARY TO ASCII CONVERSION 

;FORWARD ROUTINE ( BETWEEN TESTS ) 

JREAD CONSOLE KYBO ~ 

;SPARE EMT 
JSPARE EMT 
?SPARE EMT 
JSPRRE EMT 
JSPARE EMT 
;SPARE EMT 



KYBD ONLY 



m. 



111 



CZLACEO 
PROGRAM 

45500 

If 

46000 

m 

46400 
46500 



471 

472 2 

4735 

4740 

4750 



LA36 TERM (DL11 & 
INITIALIZATION " 



003. ... 
003074 



m 



ml 

48600 00 



mm 

""3104 

MilSL 

003124 





UF 1 
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a ma 



SPARET 



SPARE 
SPARET: HALT 
BR 



SEQ 0063 



;SPARE EMT 

?SPARE EMT 

?HALT IF TRAP TO UNDEFINED 

;EMT IS ATTEMPTED. 



-SBTTL COMMON ROUTINES USED BY LA36 TESTS 

********** 

!SHI s »fISL I .2 N .S2J! T * INS M0ST routines CALLED BY 

Ho HE o R v, g}°gMg I T?Nl I 5!EEs B lf J ir??, I !ig.5 HROUGHLacA " M 

********** 

TYPE— A COMMON ROUTINE USED TO TYPE MESSAGES ON THE 

CALLING SEQUENCE 
TYPE 



;ADDRESS OF MESSAGE 



000002 
000002 



175460 



000015 
000012 



000002 



175446 
175436 



• ******! 

TYP: 



2$: 
3$: 



SSCRLF: 



MOV 

MOV 

ADD 

MOV 

MOVB 

BMI 

BNE 

MOV 

RTI 

SCRLF 

BR 

PRNT 

MOVB 

BR 

PRNT 
MOVB 
PRNT 
MOVB 
RTI 




fSAVE RO 

?GET POINTER TO ADDR. OF MESG. 



P)«-,R0 



1$ 



R0,@TPB 



#l5,gTPB 
#12,PTPB 



«dor 6h of mesg TO Rl 

S£* N .£ H IF WAN T AUTO CR-LF 

rI!««B h M ip not wll 

EXIT IF NULL CHAR 
YES, SEND CR-LF 
GET NEXT CHAR 
PRINTER PPADV? 

^'8 E ? R ^l R c5Sr ER """ CHAR 



? 

PPRINTER READY? 
?SEND CR 
JPRINTER READY? 

?retBrn" f to CALLE 
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50200 

Ills 
38! 

50900 



111 



2000 



5. 
5' 
5 

53355 

Ml 

52800 
52900 

him 

53290 

llili 

nm 

5395. 
54000 
54100 

%Y" 

54 ., 
545& 



003172 

mm 



OillQl 

if 



103236 

:|p 

103254 
(03256 

mm 

54890 003266 

03300 
53394 
03310 

81113 

03316 



54400 



in 



M 

55200 

55300 

11188 



t8JU5 
88111^ 1838J1 



)03214 
^3216 
22 
24 

03226 

83133 



mm 

m 

IP!! 



l!3!2i 



• • 
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000002 



000012 



012700 000015 

mm 



012700 000000 



177770 

062700 000060 

916706 175336 

042700 177770 

062700 000060 
104015 



XXXXXXXXXX 

TYPM MULTI TYPE-A COMMON ROUTINE TO OUTPUT 

A MESSAGE ON ALL DL11S IF THE MULTI TEST 
SWITCH (BIT 13) IS RESET. THIS ROUTINE IS USED BY 
THE PRINTER TESTS TO TYPE HEADINGS. IF A UNIT 
IS NOT READY, THE CHARACTER HILL NOT RE TYPED. 



XXXXXXXXXX 



2$: 
3s: 



SCRLFS 

SLF: 



MOV 

ADD 

MOV 

MOVB 

BMI 

BNE 

RTI 

CRLF 

BR 

PPINTC 

BR 

CR 
MOV 

PRINTC 
RTI 

MOV 
PRINTC 

RTI 



§2 # aBP 



too 



^ROUTINE TO PR 
*********** 

SPRHDR: MOV 

PRINTC 

TYPEM 

HDRMSG 

MOV 

ASR 

ASR 

t?S 

ADD 

PRINTC 

MOV 

BIC 

ADD 

PRINTC 

RTI 



#12, RO 
#15, RO 

INT TEST HEADER 
ffO,RO 



RTNNO,R0 

RO 

RO 

J?77770,RO 
#60, RO 

RTNNO,R0 
"177770, RO 



#1777 
#60, R 



?GET POINTER TO ADDR OF MESG 

?ADDR OF MESG TO Rl 

7GET CHAR 

;BRANCH IF WANT AUTO CR-LF 

^CONTINUE IF NOT NULL 

JRETURN 

;YES, SEND CR-LF 

;NEXT CHAR 

JPRINT CHAR 

JGO GET NEXT CHAR. 

?SEND CR 
;SET LF CHAR 
;SEND IT 
JRETURN TO CALLER 

>SET CR CHAR 



) 



mn«v 



;transmit 
;nul code. 

JPRINT MESSAGE 

;GET TEST NUMBER 
?GET FIRST DIGIT 

;MASK FIRST DIGIT 
;MAKE ASCII 

{GET TEST NUMBER AGAIN 
?MASK LAST DIGIT 
;MAKE ASCII 
JPRINT DIGIT 

fsLANK LINE 
?RETURN 



) 
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mil 

03330 
03334 

mi 



mu 

03404 



• ********** 



COMMON ERROR RETURN FROM I/O TESTS. HALTS 
I{J R ^ __ 



WITH ADDRESS OF ERROR 



TO CONTINUE 



ON SAME TEST BUT NOT HALTING ON ERROR, 

SET THE SCOPE BIT (14) = 1 AND PRESS CONTINUE 



t********* 



UN 



111 
_40 4 
5767 



\l\ 



040000 
175310 



175366 ERR: 



334 

ills mm 



11600 
05740 



100000 175276 



is: 
ehlt: 



ERRHLT 
• ******** 



BIT 

BEQ 

TST 

BPL 

RTI 

BIS 

MOV 

TST 

HALT 

RTI 



#SCOPSW,@SR ?CHECK SCOPE SWITCH 

IS ?BRANCH IF NO SCOPE 

PRGID ;SCOPING WANTED, FIRST ERROR? 

IS ^BRANCH AND HALT ON FIRST ERROR 

JSCOPE EXIT 

#BIT15, PRGID ?SET ERROR INDICATOR 
@SP,R0 

-(RO) ?ADORESS OF CALL INTO RO 

?RETURN TO TEST FOLLOWING CALL 



STLSPV THIS ROUTINE SETS UP KEYBOARD INTERRUPT 

VECTOR AND PRIOITY. CALLING SEQUENCE 



003424 
003430 
003434 



017667 

062716 

016701 1 

mm \ 

000002 



STR 
AT2 



********** 

0000 000012 STLSRV: MOV 

0002 ADD 

.'522 6 MOV 

QOQQO STPRA: MOV 

75220 MOV 

RTI 

********** 



LOCATION OF NEW INTERRUPT VECTOR 



ft(SP) / STPRA+2 

|2 f asp 

TKVTR,R1 
|0,(Rl)+ 
TKLVL,(R1)+ 



;SET RETURN ADR AND VECTOR 



STLSPV— THIS ROUTINE SETS UP PRINTER INTERRUPT 

VECTOR AND PRIORITY CALLING SEQUENCE 

STPCHV 

AT35E JLOCATION OF NEW INTERRUPT VECTOR 



■' ) 



********* 



11! 

000002 



000012 STLSPV: 



?«fW 



MOV 
ADD 
MOV 
MOV 
MOV 
RTI 



USH,STPP1»2 

TPVTR,R1 



>SET RETURN ADR ANO VECTOR 



JRETURN TO CALLER 
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6121 
6131 




6451 
6461 , 
64730 



372 
601 
Q02 



j ********** 

;DELAY— A COMMON ROUTINE TO DELAY PROCESSING 

? A GIVEN NUMBER OF MSEC. 

', CALLING SEQUENCE! 

} MOV #5,R0 ?R0 CONTAINS THE NUMBER OF MSEC DEL&Y DESIRED 

| DELAY 

S THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP? 
? 1$: DEC Rl 

| BNE IS 

} SINCE THE EXECUTION TIMES OF THE PDP11 LINE DOES VARY FROM 

; MACHINE TO MACHINE, THE VULUE AT SYMBOLIC LOCATION 

? "TIMER' 1 MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW 

? BEFORE STARTING THE DIAGNOSTIC. "TIMER" IS INITIALIZED 

} FOR AN 11/05, 11/10(=251). 



05&10 35&40 15&20 LSI&03 



JLOOP: DEC Rl 
? BNE LOOP 

? time= 
i set timer 

yxxxxxxxxxx 

DLY: MOV 

If: mov 

2§S DEC 
BNE 
DEC 
BNE 
MOV 
RTI 



5.9USEC 
251 



.99 
1.76 
2-75 
554 



HftilSl 



SP)*,R1 



2.3 
2.6 
4.9 
314 



7.7 
202 



BIPOLAR 

• 60 
.90USEC 



11/45 & 11/70 

MOS 



.51 
.98 



.90 
.13 



?SAVE Rl 

;MOV 1 MSEC LOOP CNT TO Rl 

?DECREMENT COUNT 

;BRANCH IF NOT ZERO 

;DEC NO. OF MSEC DELAY 

?DELAY AGAIN IF NOT ZERO 

JALL DONE RESTORE Rl 



CZLACEO L 
COMMON RO 
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64900 
65000 
65100 
65200 
65300 
654QQ 
65500 



• ********** 



-POWER FAIL ROUTINE 
SAVE kll REGISTERS AND SET RESTART ADDRESS 
INTO LOCATION 24 



JRESTART— POWER FAIL RECOVERY 



• • 
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RESTORE ALL REGISTERS AND GO TO START 
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********** 



174324 

mm 



177766 
174272 



PFAIL: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 
SAVR6: .WORD 
RESTRTS TYPEM 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
JMP 



2800 



i * 



R0,-(SP) 
R1,-(SP > 
R2/-(SPI 
R3,-(SP i 
R4,-fSP > 
R5,-(SP i 

SP.SAVR6 
#RESTRT,24 



SAVR6,SP 

!$£} + '%$ 
SP)*,R5 
SP)+,R4 
SP)+,R3 
SP)+,R? 
sp)+,r£ 
SPJ+,R0 
TART 



?SAVE STACK POSITION 
?STORE RESTART ADDRESS 



JRESTORE STACK POINTER 
?RESTORE PKAIL ADDRESS 



.ASCIZ <ACRLF>/POWER/<ACRLF> 
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********** 

FORWARD— THIS ROUTINE TRANSFERS THE 2 OR 4 ARGU 
FROM THE TEST ROUTINE. THEY ARE; 

1- ROUTINE NUMBER 

2- ADDRESS OF NEXT TEST 

fc HfiPri8M flB.iKWMft T J«m 



m 



********** 

FORWD: MOV 
MOV 
MOV 
TSTB 
BMI 
MOV 
MOV 

ORMDA: MOV 
RTI 

ORWDB: MOV 
MOV 
BR 



XTST,R5 
R5)+,RTNNO 
R5)+,NXTST 
. RGID 
FORWDB 

CTR 
"OPTR 

-l,SCOPTR 



r UKUUB 

(R5)*#ICT 
R5,cSftT§T 
#-l,SCO 

htSsp 



?ADDR OF NEXT TEST TO R5 
;GET NUMBER OF NEXT TEST 

mhm ?? a F ?fefe? wiNG test 

?SKIP THE FETCH OF ITER CNT AND SCOPE 

;GET ITERATION COUNT 

;GET SCOPE ENTRY POINT 

;ENTRY POINT TO TEST IN CUR TST 

;exit 

>force no scope 

jforce interation count of 1 



&5M c o E A&&?S N II R 8sS8 L H MWkM" M1U0 25 - J " G - 7 " 1P < 13 P » GE » 



m 



03710 
03714 

§3720 
mi 

03730 



3800 0?375? 
J90Q 003764 

|| ate 

)300 004002 
)400 004004 



********** 

aread "t% e ro ki!K? e sxj c e"'bIt7 gg? P ;?i ?j=fti» <» 
SfJ58 R rfra:*'fc bah iiWHr 

Srf8cSfoS s S',S E Eggl!. t ili l «ll! l ?RjJI H 

l CONTINUE TO CONTINUE KITH TESTS: 

J ********** 



SEQ 0071 



mm 

003654 
003660 

mm 

003672 

003700 
Q037Q2 



\\W, 888§85 WM 

005077 174740 
174726 

000001 



$AREAD: MOV 
BIS 



l$t 



CLR 
TSTB 



DELAY 

DEC 

BNE 

EHALT 

BR 

RTI 



#600|-BRCTR 
f4 J ,GTPS 

Stpb 

STKS 

#1,R0 

BRCTR 



J SET UP 600 MSEC DELAY 
; r SET MAINTENANCE BIT 
?LOAD PRINTER BUFFER 
;CHECK DONE BIT 
IgRANCJJ JF DONE 

;delay 1 MSEC. 
?600 MSEC OVER 
JBRANCH IF NO 

?TRY AGAIN 
;RETURN TO TEST 



********** 



CONIT- 



-THIS ROUTINE SETS UP THE DEVICE ADDRF<!«?F<; 
T gD M INTERRUPT VECTORS fVtHEO]NSOLE SES 



B89 lm 

mm 174666 

016767 174662 

016767 174650 

iiroa ma 

Mil w*«« 



000044 



174634 
174626 



CONIT: MOV 
CONSET: MOV 
TST 
MOV 
TST 
MOV 
MOV 
TST 
MOV 
MOV 
MOV 
MOV 
ADD 
RTS 



TPSS: 

tpbs: 



.WORD 
.WORD 



CONADD,R0 

R0,TKS 

(R0)* 

RO.TITB 

(R0) + 

TPS,TPSS 

TPB.TPBS 

R0,TPB 

CONVEC,TKVTR 

CONVEC t TPVTR 

J4/TPVTR 







?CONSOLE 
KEYBOARD 



*SXB2A8 D STATUS ADDR TO R0 
STATUS ADDRESS (777560) TO TKS 



INCREMENT R0*BY TWO 

^,VBOARp_DATA ADDR (777562) TO TKB 



INCREMENT RO BY TWO 
?SAyp,-IP S „ 0F LAS T TERMINAL 
*S8IHI E 8 STATUS ADDR(777564) 
INCREMENT RO BY TWO 



TO TPS 



"'Sh™-1™ °P LAST TERMINAL 

"_*PPR_(777566) TO TPB 



PRINTER DATA auuh KUlbbb) TO TPB 
KEYBOARD INTERRUPT VECTOR (60) TO TKVTR 



;PRINTER INTERRUPT VECTOR (64) TO TPVTR 

? H2I I£RM STATUS REG ADR 
JLAST TERM BUFFER REG ADR 



cShmSn — ---™- R "- i9L -" 



ON ROUTINES USED BY LA36 Tl 



& £LU] 



MACRO M1110 
STS 
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■hit .... 

Jiil Ml 

4050 0627 




I ± i?BSIf s N 8E B ^ c To T § E s 58K5 E ^a T iftf& r 5i CH * R - INID R 

\ BTOASC NUMBER T0 BE C0NVE R T ED AS A POWER OF TEN INTO R2 

• ********** 

SBTASC: MOV 
ASL 
ADD 



IS: 
2S: 



cnvctr: 
digit: 

TENPWR: 

adtenp: 



MOV 
CLR 
SUB 
BCS 

W 

ADD 

ADD 

MOVB 

DEC 

BNE 

RTI 

.WORD 

:&86B 

.WORD 



#ADTENP,R2 

-(R2), TENPWR 
DIGIT 

TENPWR, Rl 

DIGIT 
TENPWR-R1 

imp- 



?CALCULATE ADDRESS OF 

JSTARTING TEN POWER 

JPOWER OF TEN VALUE TO TEN PWR 

*EkiA5. current digit 

>S3llBA C I..*BN POWER FROM BINARY VALUE 
JBRANCH IF END 



1., 10. ,100. ,1000 



^RESTORE SUBTRACTED VALUE 
^CONVERT (DIGIT) TO ASCII 

>Eyi,&££M.FP*S„* H X U? E F BUFFER 
jfinished all chars. called for 
;branch if not finished 

ICON^ERsioN CHARACTER COUNT 
*S9BXEFI*2 CHARACTER 
7CURRENT TEN POWER 



g8WSB°Rli8?f»IS ,, !!sSI! L ii kSWisB" " l "° 25 - ,UG - 78 10!13 « GE " 




;xxxxxxxxxx 
; 

JREAD-- * COMMON ROUTINE WHICH CHECK 
; DONE FLAG J. SETS A FLAG IND" 

?XXXXXXXXXX 



{|JHE.KEYBO«Rp. 



ING CHAR PARITY 



Sread: 



3S: 



JSR 

TST 

BEQ 

MOV 

MOV 

TSTB 

BPL 

MOV 

JSR 

BR 

DEC 

BEQ 

ADD 

B E 

TSTB 

BPL 

TSTR 

BPL 

MOVB 

MOVB 

BIC 

MOVB 

BIC 

CMP 

BEQ 

MOV 

BIC 

DEC 

BEQ 

&?&" 

COMB 

BR 

RTI 



PC.CONIT 

DLCNT 

SREADC 

DLCNT,COUNT3 

FSTDL,XCSR 

&XCSR 

XCSR,R0 
PC € CDNSET 
READ1 
COUNT3 

#j0,XCSR 

IV s 

|tks 
|tkb,tempch 



;H9 B 6 L n x ! a B39 C0MS0LE INPUT 

y ADDRESS OF FIRST DL11 INTO XCSR 

>TEST IF ANY INPUT 

JCONTINUE IF NO INPUT 
_.._* g L11 A g C0NSQLE 



SET THIS DLll 



JREAD CHAR AND RETURN 
DECREMENT DLll count 
2XI5I COMSOLE^WHEH DONE DLll'S 
*NEXT DLll ADDRESS 
CONTINUE 
?CHECK CONSOLE 
;WAIT, NO INPUT 
JCHECK KEYBOARD DONE FLAG 
?§?&SCH IP NOT SET 
SSAVE CHARACTER 
SAVE CODE WITH PARITY BIT 



r.rK£CH-PCHAR , w „ u „ 4I1 rilR111 UMtl 

flZZ*£"*F£!!&8 . ?!3* s ^ UNWANTED BITS 

f|gi!«&iw» l \nvt sH sirassi" bit 

fEMPCH,M ^DISREGARD EOT 



>5 E J SHIFT COUNT 
;CLEAR PARITY FLAG 
JDECREMENT SHIFT COUNT 
;EXIT IF DONE 

fcaSTtNU? D IF BIT WAS ZERO 

JcSMfloE*"™ FUG IF B " WAS ° NE 
;SET, RET. TO CALLER 



JXXXXXXXXXX 

?PRINT-- A COMMON ROUTINE TO CHECK THE PRINTER READY FLAG 

fxxxxxxxxxx 



TSTB 

BPL 

RTI 



SPRNT 



?CHECK PRINTER READY FLAG 
?BRANCH IF NOT SET 
?SET, RETURN 
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19000 

\m 

19300 

11188 

19600 



Hi 



51856 i 

m i 



516767 1742 
iiw mi 



4424 

mi 

4442 
004444 

ta 

004460 

mm 
mm 

004512 

mm 

004526 

00 4540 
004544 
004546 
004554 
004556 
004564 
004566 
004574 
00 4576 
004604 
004606 

mm 



001002 

JMVH 

001427 



026727 



174360 
174352 



m 

000002 

mm 

174262 
000432 

mm 

174266 
174206 
104011 
174220 
000002 

1742 

174126 000024 

!W«4 

174102 
174134 
174064 
174116 
174044 
174076 
174024 



000177 
000017 

000021 
174076 
000022 
1740 56 
000021 



********** 

PRINTC— SENDS A CHARACTER AT A TIME FIRST TO THE 

CONSOLE DL11 THEN TO ALL MULTIPLE DL11S IF 
SOF.T 12 *§ " fi- I F THE REFERENCED PRINTER 
READY BIT IS NOT SET, THE CHARACTER MILL NOT BE 
SENT TO THAT PRINTER. ENTER WITH CHARACTER TN R0. 
CALLS PRINTC 

******** 



174336 
174326 



174256 
174252 



000020 
175236 



174210 
174212 

mm 



SPRTC: 
15! 



2 |: 



4S: 



6S: 

7$: 
8$: 
9$: 



MOV 

ADD 

TSTB 

BPL 

ADD 

MOV 

BIT 

BNE 

TST 

BNE 

JMP 

MOV 

MOV 

TST 

BNE 

CMP 

BGE 

CMP 

BNE 

TSTB 

BPL 

ADD 

MOV 

BIC 

CMP 

BNE 

CMP 

BNE 

JMP 

CMP 

BEQ 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

MOV 

BR 

CMP 

BNE 

POPSP2 



CONADD £ TEMP 
1*4, TEMP 

Stemp 

#2, TEMP 

RQ*0fEMP 

#BIT13,$SR 

DLCNT 

18$ 

DLCNT, COUNT3 

FSTDL,XCSR 

INCHK 

13$ 

RTNNO,#20 

#TTYCTL,WAITF 



00, TE 
H,l3 



IJ^SR^TEMPCH, 

TEM" 

R?NNO,#24 
6$ 

TEHPCH,#177 

9S 

RTNNO,frl7 

TEMPCH,R3 

12$ 

RTNNO,#21 

TEMPCH,REPT 

12$ 

RTNNO,fr22 

TEMPCH,REPT 

RTNNO,#21 
10$ 



?SET CONSOLE ADR 



?WAIT FOR CONSOLE READY 

?SET ADR 

;LOAD CONSOLE PRINTER BUFFER 

;CHECK SW 13 

?SEND ALL TERMS IF SH13 DOWN 

;CHECK IF MULTIPLE DLll'S 

;CHECK FOR INPUT IF THERE 

;PUT NO. DLll'S INTO COUNT3 
JADDR OF FIRST DL INTO XCSR 
?CHECK FOR INPUT? 

?PRINTING TEST? 
?BRANCH IF NOT 
?KEYBOARD CONTROL? 
;SKIP INPUT CHECK IF NOT 
JTEST IF ANY INPUT 
JCONTINUE IF NO INPUT 
JSET BUFFER ADDRESS 



JCHECK IF CONTROL-C 

JCONTINUE IF NOT 

?CHECK IF TEST 24 

JCONTINUE IF NOT CONTROL-C 



CHECK IF RUBOUT 

YES, CHECK TEST NUMBER 

TEST 17? 

BRANCH IF NOT 

SAVE CHARACTER 

CONTINUE 

TEST 21? 

BRANCH IF NOT 

SAVE CHARACTER 

CONTINUE 

TEST 22? 

CONTINUE IF NOT 

SAVE CHARACTER 

CONTINUE 

CHECK IF TEST 21 

NO, CHECK IF TEST 22 

ASJUST STACK 
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000036 



005334 

173772 000022 10$: 
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11$: 




MOV 

DELAY 

TYPEM 

ECOEND 

CHAIN 

JMP 

CMP 

BNE 

POPSP2 

MOV 

DELAY 

TYPEM 

ECOEND 

CHAIN 

JMP 

CMP 

BNE 

POPSP2 

JMP 

MOV 

DELAY 

X 

ADD 

ADD 

MOV 

ADD 

CMP 

BEQ 

TSTB 

BPL 

ADD 

MOV 

DEC 

BEQ 

ADD 

JMP 

ADD 

BR 

TST 

BNE 

CMP 

BGE 

CMP 

BNE 

TSTB 

BPL 

MOV 

ADD 

MOVB 

BIC 

CMP 

BNE 

CMP 

BNE 

MOV 

DELAY 



#30.,RO 

E021A 
JJNNO,#2 

#30.,R0 



E022A 
RTNNO,#24 

TERM 
*30.,R0 



14$ ; ' "" 
#2, XCSR 
»2,XCSR 
ONADD,TEMP 



XCSR 



17$' 
^CSR 

#2, XCSR 
R0,9XCSR 

|2,XCSR 

#2, XCSR 

16$ 

INCHK 

RTNNO,#20 

19$ 

#TTYCTL,WAITF 

BCONADD 

film™ 

&TEMP.TEMPCH 
§177600, TEMPCH 
TEMPCH, &3 

Rt|nO,#24 

#30., RO 



;delay for half duplex 

;YES f TEST 21 

JPRINT TERMINATION MESSAGE 

?chain to next test 

;repeat test if loop on test sw set 

jcheck if test 22 

;no, check if test 24 

JADJUST STACK 

JDELAY FOR HALF DUPLEX 

;yes, print termination MESSAGE 

?CHAIN TO NEXT TEST 

f REPEAT TEST IF LOOP ON TEST SW SET 

fTboT 24? 

{8811/85*?!" TEST IF N ° T TEST 24 
JTERMINATE TEST 
JDSLAY FOR HALF DUPLEX 



J8BMB B CHAMCT " 



._ UE 
?SET STATUS ADDRESS IN XCSR 

?CHECK IF CONSOLE TERMINAL 
;IS THIS DL 

JTEST PRINTER READY 

?WAIT FOR READY 

;SET XCSR TO PRINTER BUFFER 

?LOAD CHARACTER INTO BUFFER 

? DECREASE COUNT OF DLll^S 

;all done, exit 

?set xcsr to next dl11 printer status 

;GO TEST NEXT DLll READY FLAG :>rATUb 
;SET XCSR TO PRINTER BUFFER 
;DO NOT LOAD BUFFER 
JWANT INPUT CHECK? 

;no, branch 
jprinting test? 
jbranch if not 
;keyboard control? 
? ^is inpdt check if not 
jtest if any input 
?branch if none 

;SET ADR 



? SA?L"SS* NT ED BITS 
^CHARACTER = CONTROL-C? 
JCONTINUE IF NOT 
JTEST 24? 
JCONTINUE IF NOT 
;DELAY FOR HALF DUPLEX 



• • 
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881138 

005164 



ill 8p torn 
mllim mm 

32400 005256 016767 
32500 005264 000002 



005650 

173516 000177 21$: 



000001 173436 22$! 
174660 

23$: 
000036 

173416 000017 

imi% 000021 24$: 

173434 173414 
173364 000022 25$: 

173416 173376 

26$: 



POPSP2 

JMP 

CMP 

BNE 

BR 

MOV 

JMP 

MOV 

MOV 

DELAY 

MOV 

CMP 

BNE 

m 

BNE 
MOV 
CMP 
BNE 
MOV 
RTI 



E024B 
TEMPCH,#177 

Mi™ 
««:;»' 

25S 

TEMPCH,REPT 
RTNN0,|22 

TEMPCH,REPT 



J SEND CR-LF 
PRESET STACK 
?RETURN TO TEST 
JCHECK IF RUBOUT 
JBRANCH IF NO 

JCLEAR LOOP AND SEQUENCE BITS 
JGO WAIT FOR NEXT TEST 
;SAVE RO 
JDELAY FOR HALF DUPLEX 

} RESTORE RO 
?CHECK IF TEST 17 
?BRANCH IF NOT TEST 17 

itm { f »" , ¥e t p d 2{ h " ,actei ' 

yBRANCH IF NOT TEST 21 
JSTORE INPUTTED CHARACTER 

{HKEhVISI fist 22 

?STORE INPUTTED CHARACTER 
^RETURN TO TEST 



-') 
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If 



005266 

MP 

005274 

H 113122 

00 005312 

" S8I11I 




000040 

m 

Mil 

000774 

mm 



W 

5777 
__4005 

ii mm 



mm 



005346 
173252 
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I/O LOGIC TESTS 



SEQ 0078 



********** 

ONLY THE CONSOLE TERMINAL IS TESTED. 
?UPON COMPLETION* THE CPU WILL EITHER HILT IF SR 
?BIT8 IS - 1 AND AWAIT FUTHER INSTRUCTIONS OR CONTINUE 
?AND EXECUTE THE PRINTER TESTS CONTINOUSLY 
fIF AN I/O TEST FAILS, THE CPU WILL HALT AT ERRHLT 
JWITH THE ADDRESS OF !he ERROR IN RO (LOG 777700). PRES 
?THE CONTINUE SWITCH WILL CAUSE THE I/O TEST TO 
; CONTINUE WITH THE NEXT TEST* HOWEVER IF SWITCH 14 
?WERE SET, OR IS SET BEFORE THE CONTINUE SWITCH IS 
SPRESSED, THE FAILED TEST WILL LOOP ON ITSELF 
^WITHOUT FURTHER HALTS 



• *********** 



JAT0-- 

} 



********** 



TEST 640— TESTS THE ABILITY TO REFERENCE THE 
RECEIVER STATUS WORD (TKS) WITHOUT TRAPPING, 



ATO; 
atok: 



40 

Hi 

i$ 

MOV 
TST 

CHAIN 
BR 

ERROR 
BR 



; ********** 



fiis" 



?TEST NUMBER 

JNEXT TEST 

JITERATION COUNT 

?SCOPE ENTRY 

JSETUP MACHINE ERROR TRAP 

!c r h^ r n^ne Re x? e te1t R status mqrd 

jrepeat test 

?errqr trapped when referencing 

^RECEIVER STATUS WORD C"~ K 



mr n 



>AT1— TEST #4X--TESTS THE ABILITY TO REFERENCE THE 
!fc*******i*^ I¥ER 0UFFER <TKB> WITHOUT TRAPPING. 



MOV 
TST 

CHAIN 

BR 

ERROR 

BR 



wr 



?TEST NUMBER 

?NEXT TEST 

JITERATION COUNT 

?SCOPE ENTRY 

JSET UP MACHINE ERROR TRAP 

JREFERENCE RECEIVER BUFFER 

?CHAIN TO NEXT TEST 

?REPEAT TEST 

^TRAPPED WHEN REFERENCING 

^RECEIVER BUFFER (TKB) 
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005400 
173222 



000043 

Mitt 

005422 

"2767 005432 

ml 173172 

000774 

mm 



172414 



172362 



. ********** 

JAT2-- TEST #42 — TESTS THE ABILITY TO REFERENCE THF 

f*******fl* NSMI " ER STATUS WORD (TPS) WITHOUT TRAPPING. 



AT2f 



i!5 



42 

AT3 

IV 

MOV 
TST 

CHAIN 
BR 

ERROR 
BR 



fSS^MACHER 
gTPS 

IS 

2$ 



JTEST NUMBER 

?NEXT TEST 

? ITERATION COUNT 

?SCOPE ENTRY 

JSET UP MACHINE ERROR TRAP 

|c R ffiS E ?S E NE T X R f N T S E M iT TTER ST&TUS 

?repeat test 
?ISJESE9.SHE n -S efer encing 

?transmitter status word 



• *&****#*&& 

|AT3 — TEST #43-- TESTS THE ABILITY TO RFFFRPMPR thp 

s*******I** MSMITTER "W"" <tpbV withgut E trappi E gI HE 



?TEST NUMBER 
JNEXT TEST 
? ITERATION COUNT 
ISCOPE ENTRY 

; §§OE E 8 R0R ? r ap 

k R §JfS E T N S E NE T X R f N T S E H lT TTER BUFFER 

;repeat TEST 

{HtB5BFrffl6M»FI8!" c " B 



ATS; 


43 




HJ 




IS 




MOV 


Jl: 


TST 
CHAIN 




BR 


3$: 


ERROR 




BR 



B?« H 



2$ 






CZLACEO LI36 TERM CDL1I S, KL11) 
I/O LOGIC TESTS 



2746 000340 
""" 005460 




mm 



mm 
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• **&*■*-***&* 

;AT4 — TEST 144 — TESTS THE ABILITY TO SET AND CLEAR THE 

?*******ffi ElfER "TERROPT ENABLE BIT* 



888188 HUM 



173124 1$5 

173116 



2SS 
3SS 



000190 173016 



II! 



44 
&T5 

$ 

MOV 
MOV 

m 

BIT 

ERROR 

BR 

BIC 

BIT 

BEQ 

ERROR 

CHAIN 

BR 



#PRTY7,-(SP) 
#1$,-(5P> 

#BIT6,aTKS 
|BIT6,#TKS 

jjfftmi 



JTEST NUMBER 
?NEXT TEST 

?SET PRIORITY 7 

?SET INTERRUPT EN&BLE BIT 
;CHECK IP BIT IS SET 

JCHAIN TO NEXT TEST 
JCLEAR INTERRUPT ENABLE BI 
?CHECK IF BIT IS CLEARED 
JBRANCH IF CLEARED 
?NOT CLEARED, ERROR 
;CHAIN TO NEXT TEST 
?DO TEST AGAIN 



) 



ATS 



TEST i45— CHECKS THAT THE RECEIVER INTERRUPT 
^ENABL? BIT CAN BE CLEARED WITH RESET INSTRUCTION* 



If! 



173034 IS 
3$ 



MOV 

MOV 

RTI 

BIS 

TSTB 

BEQ 

RESET 

BIT 

BEQ 

ERROR 

CHAIN 

BR 



KSJW" 



BIT6,@TKS 
TPS 

BIT6*gTKS 



mm m n 

', ITERATION COUNT 

5SCOPE ENTRY 

JSET PRIORITY TO 7 



?SET INTERRUPT ENABLE BIT 

?BE SURE PRINTER IS DONE WITH DL11S1 

?BEFORE ALLOWING FOLLOWING RESET. 

;RESET 

JTEST INTERRUPT ENABLE BIT 

?BRANCH IF CLEARED 

;STILL SET,ERRDR 

JCHAIN TO NEXT ROUTINE 

?REPEAT TEST 
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) 



•2900 
3000 

||8§ 

ill 

3800 

M 

If 

4500 

m 

4800 



5700 



005604 
005606 



§95614 
005620 
005624 

111! 
HUH 

5656 
5664 

mi 

5672 



005674 
005676 

--—oo 



635 

640 
650 

Ilk nmi 

6900 005742 



905710 
"5714 



0003 46 

005674 

loll 

m 

tp 

032777 
001401 

1181 

000755 



000347 
005744 



III! W 



mi* 



-.77 

1401 



mm 

000765 



im 



ooiog 

00100 



000340 
005716 



000100 






mm 



172740 
172732 



AT6: 



IS: 



25s 



46 
AT7 



MOV 

MOV 

RTI 

BIS 

BIT 

BNE 

ERROR 

BR 

BIC 

BIT 

BEQ 

ERROR 

CHAIN 

BP 



IiT%p- 



TY7,-fSP) 



#BIT« 



„§tps 



?TEST NUMBER 
?NEXT TEST 
?ITERATION COUNT 
5 SCOPE ENTRY 
?SET PRIORITY TO 7 



JSET INTERRUPT ENABLE 
!£HEC£..THAT_BIT I§ §g 



BIT 



#BIT6,8TPS 
IbiT6'|tPS 



?BRANCH IF SET 

?NOT SET. ERROR 

;CHAIN TO NEXT TEST 

;CLEAR INTERRUPT ENABLE BIT 

'EHSSE. IF BIT IS CLEARED 

?NOT CLEARED* ERROR 
;CHftIN TO NEXT TEST 
?DO AGAIN 



;AT7 — 



A?7: 



IgfI«J«T-IBHg K T SfT*SIH T I B HT c Ktf H 5g#rgS."™ 



47 

AT10 



MOV 



172672 
172662 



IS? 



2?: 



OV 
MO¥ 
RTI 
BIS 
RESET 
BIT 
BEQ 

im 

BR 



f*PRTY7,»(SP) 
fcl$,-(SP) 

#BIT6,gTPS 

|8IT6,gTPS 

IS 



JTEST NUMBER 
?NEXT TEST 
^ITERATION COUNT 
?SCOPE ENTRY 
?SET PRIORITY TO 7 

;SET INTERRUPT BIT 

^85?8'T§ E §iJT D IS8oraE CLEAR BIT 

JREPEAT TEST 



m^wnsW <dlu 
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001000 172732 IS: 



2S: 



mm 

104001 

mm 



172572 
172564 



• ********** 
?AT10— TEST #50 — 
J READY BIT 
*********** 



50 

mi 

P" 

BIT 

BNE 

RESET 

TSTB 

BMI 

ERROR 

CHAIN 

BR 



CHECKS THAT RESET SETS THE TRANSMITTER 

AND THAT THE READY BIT CAN BE READ RELIABLY. 



|LSI11,8SR 



?TEST NUMBER 

JNEXT TEST 

MTERATION COUNT 

} SCOPE ENTRY 

JSKIP TEST IF AN LSI-11 

;RESET 

>CHECK TRANSMIT READY BIT 

?BRANCH IF SET 

?ERROR, RESET DID NOT SET READY BIT 

JCHAIN TO NEXT TEST 

;DO AGAIN 



********* 



JAT11-- TEST #51 — TESTS THAT THE TRANSMITTER READY RESETS 
Jft******iL L0ADING THE TRANSMITTER BUFFER. 

ATll: 51 JTEST NUMBER 

&T12 ;NEXT TEST 

ITERATION COUNT 
;SCOPE ENTRY 

?DELAY 150 MSEC. 
;RESET 

JLOAD TRANSMITTER BUFFER 
?CHECK TRANSMIT READY BIT 
;8RANCH IF CLEARED 
;NOT CLEARED, ERROR 
JCHAIN TO NEXT TEST 
IS ;REPEAT TEST 



IS: 



2S: 



MOV 

DELAY 

RESET 

CLR 

TSTB 

BPL 

ERROR 

CHAIN 

BR 



#226, RO 



gTPB 
ftTPS 



f&^ 



CZLACEO LA36 TERM (DL11 
I/O LOGIC TESTS 

20 800 
~"900 



& KLll) MACRO M1110 25-AUG-78 10U3 PAGE 31 



I 



its 

'ft 



6042 

mi 

6050 



J600 0Q6050 00 

700 206052 10 

800 306054 QQi 

90O 006056 00< 



iifbo 

22400 



22800 
231 



6 

2 

006110 

mm 



000052 

mm 
.imt 

OQ5077 
005046 

mm 

152777 



i iiitii n 



w< 



300 

SI 

600 
700 



4200 006! 



ffl 

2441 
2451 

m 

2481 
2491 

m 

252 



006 



am mi 



000762 

am 




172532 
006074 
000100 



172472 
006144 

mm 



172440 



lfE!HIIlpE*2B~S?ISRSp? ,fAT THE TRANSMIT RE * D¥ BIT CAN 



!! 



13 



?TEST NUMBER 

; " — 



IS: 



172514 2S: 



STPCHV 

4S 

RESET 

CLR 

CLR 

MOV 

RTI 

BIS 

NOP 

ERROR 

CHAIN 

BR 

PgPSP2 



NEXT TEST 
ITERATION COUNT 



flTPS 

-(SP) 

&2$,-(SP) 

#BIT6,@TPS 



3$ 



JSCOPE FNTRY 

*SS T J .& P "transmitter interrupt vector 

?TO 4$ 

JSEE CHAINY COMMENT 
;DISABLE TRANSMIT INTERRUPT 
;SET PRIORITY TO ZERO 



JENABLE TRANSMIT INTERRUPT 



;repeat TEST 



• ft*** 
?AT13 



IS: 
2$: 
3S: 



JcH\ T lHS T Ngx' C T U ?E ? §?' CLEhH STACK 

"" JESJJ!S?.-" TESTS THAT THE TRANSMIT READY DOES NOT CAUSE AN 
****n E?RUPT ¥HEH THE PROCESSOR IS AT THE SAME LEVEL 



35 

ffl 4 

STPCHV 

MOV 
MOV 
RTI 
CLR 



CLR 

Ir ain 

POPSP2 

ERROR 
BR 



TPLVL t -is 
#2$,-CSP> 



fflfi «»" 

J ITERATION COUNT 

?SCOPE ENTRY 

'5SI.2E I5*?SMIT INTERRUPT 
,„„ % ;VECTOR TO 4$ 
JSP) jSBT PROCESSOR TO SAME LEVEL AS XMITTER 

lbtif a _„_ ?DISABLE TRANSMITTER INTERRUPTS 
&PIT6,0TPS ;ENABLE TRANSMITTER INTERRUPTS 

STPS ;OK f NO INTERRUPT OCCURRED 

is KB>Ht t ¥«H" test 

;INTERRUPT OCCURRED, ERROR, CLEAN 
#* «. # **P STACK 

3$ ;CHAIN TO NEXT TEST 



$¥*- 
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• ********** 

?AT14-- TEST&54 — TESTS THAT THE TRANSMIT READY DOES CAUSE AN 

} INTERRUPT WHEN THE PROCESSOR IS AT A PRIORITY LEVEL 

*^^ 0££ LOWER THAN THE TRANSMIT INTERRUPT REQUEST LEVEL 



• ********* 



AT14: 



1$: 



172354 2$: 



m 



54 
AT15 

\\- 

STPCHV 

35 

CLR 

MOV 

SUB 

MOV 

RTI 

BIS 

NOP 

ERROR 

lb 92 

CHAIN 

BR 



3TPS 
TPLVU-(SP) 

#BIT6,gTPS 

4S 

3TPS 

IS 



;test number 

JNEXT TEST 

JITERATION COUNT 

JSCOPE ENTRY 

?SET UP TRANSMIT INTERRUPT 

JVECTOR TO 3$ 

JDISA8LE TRANSMIT INTERRUPTS 

?SET PROCESSOR PRIORITY ONE 

JLEVEL LOWER THAN TRANSMITTER 



?ENABLE TRANSMITTER INTERRUPTS 

;ND INTERRUPT* ERROR 
;CHAIN TO NEXT TEST 

mH8EFMEfillFHiR IiTgHft!T3 

jr^s™* 1 test 



m K i®xWistt M <DLn 
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• ********** 



) 



SIfSII§n»XE S Ii«IH*T TH £ TRANSMIT READY DOES NOT 
REINTERRUPT AFTER AN RTI WHEN THE READY BIT HAS 
ft Ng| BEEN RESET* 

55 ?TEST NUMBER 

AT16 ;MEXT TEST 



006312 

000100 172276 



006354 
006350 



001000 
000226 



172172 





MOV 
RTI 
BIS 
NOP 
ERROR 


#2$,-(SP> 


2$: 


&BIT6,8TPS 






3$: 


CLR 
CHAIN 


@TPS 




BR 


#I$,8TPVTR 


4$: 


MOV 




MOV 


5$: 


RTI 
NOP 






BR 


3S 


65: 


POPSP2 
ERROR 






BR 


3S 


. ********** 




;AT16- 


-TEST&56- 


-CHECKS THA* 


• ********** 




AT16: 


56 

ill 




IS: 


|LSIll,gSR 




MOV 


#226, RO 


2$: 


DELAY 
AREAD 
RESET 






TSTB 


I3TKS 




BPL 


3S 




ERROR 




3$: 


CHAIN 






BR 


1$ 



?SET TRANSMIT INTERRUPT VECTOR 
;TO 4$ 

>2I§ A B L .E„JR& M .SMITTER INTERRUPTS 
;SET PROCESSOR PRIORITY TO ZERO 

7ENABLE TRANSMITTER INTERRUPTS 

* £88981 R TRANSMITTER FAILED TO INTERRUPT 

foisable transmitter interrupts 

jchain to next test 

jrepeat test 

interrupt occurred, change interrupt 

^vector to 6$ and return to 5$ 

?return from interrupt 

;chain to next test 
?fgror2, transmitter reinterrupted 
jafter rti with ready bit left on, 
jclean stack, chatn to next test. 



CHECKS THAT RESET CLEARS THE RECEIVER DONE BIT 



?TEST NUMBER 
;next TEST 
?TTERATION COUNT 
JSCOPE ENTRY 
;SKIP TEST IF LSI-11 

JDELAY 150 MSEC, 

JENABLE RECEIVER 

PRESET 

;TEST DONE BIT 

?RRANCH IF DONE IS CLEARED 

JNOT CLEARED, ERROR 

;CHAIN TO NEXT TEST 

JREPEAT TEST 
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********** • 

kni ~- CLlIfl 7 THE H DONE BIT 1 " REFSRENCING THE RECEIVER BUFFER 
********** * 



172246 1$: 



57 
AT20 

If- 

BIT 

BNE 

MOV 

DELAY 

AREAD 

TSTB 

TSTB 

BPL 

ERROR 

CHAIN 

BR 



#LSIll r 8SR 



#226, ro 



9TKB 
ftTKS 
3S 



1$ 



• ********** 
JAT20— TEST#60 
; CAUSE A' 
j ********** 



AT20: 



172172 1$: 



172034 3$: 



000751 



60 

r 

STRDRV 

BIT 

BNE 

MOV 

DELAY 

AREAD 

CLR 

CLR 

MOV 

RTI 

BIS 

NOP 

ERROR 

BR 

POPSP2 

CHAIN 

BR 



CHECK THAT 
N INTERRUPT. 



|LSI11,0SR 
fr326,R0 

gTKS 

-<SP) 

#3$,-(SP) 

#BIT6,gTKS 
5$ 



IS 



;TEST NUMBER 
JNEXT TEST 
JITERATION COUNT 
; SCOPE ENTRY 
jCHECr FOR LSI-11 
;SKTP TEST IF SET 

JDELAY 150 MSEC. 
;ENABLE RECEIVER 
REFERENCE RECEIVER BUFFER 
;TEST DONE BIT 
JBRANCH IF NOT SET 
7DONE BIT IS SET, ERROR 
;CHUN TO NEXT TEST 
?REPEAT TEST 



THE RECEIVER DONE BIT IS ABLE TO 



?TEST NUMBER 

;NEXT TEST 

JITERATION COUNT 

; SCOPE ENTRY 

;SET UP RECEIVER INTERRUPT 

;VECTOR TO 4$ 

;CHEC«f FOR LSI-11 

;SKIP TEST IF SET 

fDELAY 150 MSEC 

;ENABLE RECEIVER 

;DISABLE RECEIVER INTERRUPTS 

;SET PROCESS STATUS TO ZERO 



?ENABLE RECEIVER INTERRUPT 

JERROR, RECEIVER FAILED TO INTERRUPT 
;CHAIN TO NEXT TEST 
;OK c CLEAN STAC* 
?CHAIN TO NEXT TEST 
7REPEAT TEST 
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AT21: 



172100 1$: 



2$: 



3$: 
4$: 



61 



22 



STRDRV 

ilr 

BNE 
MOV 
DELAY 

m n 

MOV 

MOV 

RTI 

BIS 

NOP 

CLR 

CHAIN 

BR 

POPSP2 

ERROR 

BP 



#LSI11,HSR 
&226,R0 



|TKS 

TKLVL,-(SP) 

#3$,-?SP) 

#BIT6,£TKS 

GTKS 

IS 

4S 



?TEST NUMBER 

?NEXT TEST 

;ITERATTON COUNT 

;SCOPE ENTRY 

?SET RECEIVER VECTOR TO 5$ 

;CHECK FOR LSI-11 
?SKIP TEST IF SET 

;DELAY 150 MSEC 

; ENABLE RECEIVER 

? 2ll A 2k E RECEIVER INTERRUPTS 

?SET PROCESSOR PRIORITY TO SAME LEVEL AS RECEIVER 

;ENABLE RECEIVER INTERRUPTS 

;OK, NO INTERRUPT OCCURRED 

JCHAIN TO NEXT TEST 

yREPEAT TEST 

JERROR, RECEIVER INTERRUPTED, CLEAN STACK 

?BRANCH 4$ 



1! 



CZLACEO LA36 TERM (OL11 
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^1 

4140Q 

m 

42_ 

III 



mm 

006676 

i \m 



006706 



067 



J RII98S 

!2 104010 



If! 

!if§8 8§i?fl MV> 

43306 O06742 0Q0002 

Mmtfj mw 

43900 006766 022626 



• • 
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001000 
000226 



121! 



mm mm 



********* 



;AT22 

J 

*^^^R£9UEST LEVEL 



TEST&62— TESTS THAT THE RECEIVER DONE DDES CAUSE AN 

JBXgK OP .2LX H 5H.X H E processor is at a priority one 

LEVEL LOWER THAN THE RECEIVER'S INTERRUPT 



• ********* 



172000 IS: 



m 



th 3 

10. 

STRDRV 

BIT 

BNE 

MOV 

DELAV 

AREAD 

CLR ■ 

MOV 

MOV 

RTI 

SUB 

BIS 

NOP 

ERROR 

BR 

POPSP2 

CLR 

CHAIN 

BR 



|LSIll,aSR 
*226,R0 

gTKS 

hew 

5S 

&TKS 

1$ 



gTKS 



JITERATION COUNT 
JSCOPE ENTRY 

JIKtBFWH interrupt 

;CHECK FOR LSIll 
;SKIP TEST IF SET 

;DELAY 150 MSEC 

JENABLE RECEIVER 

fDISABLE READER INTERRUPTS 

;SET PROCESSOR PRIORITY ONE LEVEL 



'■) 



JI.9¥! 



■*iu T nV.KftH§ 



JFAILED TO INTERRUPT 

JCHAIN TO NEXT TEST 

;OK, CLEAN STACK 

^DISABLE RECEIVER INTERRUPTS 

JCHAIN TO NEXT TEST 

JREPEAT TEST 
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• St********* 



475 

4761 



2626 
4001 



l""~ P{Wff&t N l*' T HsHHI!6R SUES 88Si NDI 



001000 171676 
000226 



060100 



mm 



j ********** 



AT23: 


63 „ 




fj. 24 




IS 


IS: 


BIT 
BNE 


2S: 


MOV 




DELAY 
AREAD 






STRDRV 




CLR 




BIS 




NOP 




ERROR 


3S: 


CLR 
RESET 






CHAIN 




BR 


4$: 


MOV 




MOV 




RTI 


5$: 


NOP 




BR 


6$: 


POPSP2 




ERROR 




BR 



|LSIll,dSR 
#226, RO 



0TKS 
#RIT6,gTKS 



f6$,@TKV 
85|;|SP 



3S 



;TEST NUMBER 
;next TEST 
5ITERATTON COUNT 
JSCOPE ENTRY 
*£"££* EQ R LSI-11 
?SKIP TEST IF SET 



;OELAY 150 MSEC 
^ENABLE RECEIVE 



JDELAY 

*ENABL U nK .^ Dl . 
?SET RECEIVER 



whtUHHS !nterrupt 

? S. T .5*Pk E RECEIVER INTERRUPTS 
JENABLE RECEIVER INTERRUPT 

;no INTERRUPT, ERROR 
JREPEAT TEST 

'SI!7IS5 lI £Xc °k< CHANGE 

*£3iJ!£ E R«f ADDR TO 55 
? RETURN 

J95fcnK° ADDITIOMAL INTERRUPT 
;ERROR, ADDITIONAL INTERRUPT 

?CHAIN TO NEXT TEST 



. ) 



VECTOR TO 6$ 



CZLACEO 
I/O LOG 

1 

48200 
48300 

ttffl" 

M 

490 



LA36 TERM (DL11 & KL11) 
IC TESTS 



m Hi 



49< 

49: 

4T 



iSSSS 8 



Hill 2 

mill 
mm 

007130 
7142 

p 

7156 
7160 



50100 DC 



5050O 
50 800 



7170 

urn 

007204 

mm 



WW 

000001 

mm 

001426 



mm 

014401 
104010 

mm 

005367 

im 

104001 
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• ********** 

?AT24— TEST&64-- HAVE OPERATOR TYPE A CHARACTER ON THE 

I KEYBOARD, THEN CHECK FOR RECEIVER DONE. 

ALLOW 12 SECONDS FOR OPERATOR RESPONSE. 



001000 
171454 



000600 
000030 



171424 
171522 

000600 



«r*****i**4 



171564 1$: 



4$: 
5$: 



64 
AT25 

I?t 

BEQ 

TST 

BEQ 

ERROR 

MOV 

MOV 

TYPE 

OPMSG 

DELAY 

w 

DEC 

BEQ 

MOV 

BR 

ERROR 

CHAIN 
BR 



5$ 

JTKS 



#600, R0 
#30,CNTR 



CNTR 
|?00 r R0 



;TEST NUMBER 

?NEXT TEST 

fTTERATTON COUNT 

;SCOPE ENTRY 

;SKIP TEST IF NOT AN LSI-11 

JSHOULD BE CLEAR 

JRECEIVER STATUS NOT =0 

Jl/2 SEC DELAY 

7SET UP FOR 12 SEC WAIT 



;MESSAGE TO TYPE 
?l/2 SECOND 



A CHARACTER 



;TIME HAS RUN 
;ANOTHER 1/2 S 
;CONTINUE WAIT 



OUT. 
SEC 



;NO RECEIVER DONE, OR 
?OPERATOR DID NOT RESPOND 
;CHRIN TO NEXT TEST 
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m 

'HI 

ft IK 



5 
5 
5 
5,. 

I 19 



007212 
507220 



530 
531 
532 
533 



_32 
7236 

m 

7244 



000065 
007270 

MU 

mm 

155777 



till 

007262 

ou m 



nit 

W" 

007266 



104001 
000755 



001000 
171354 



- 72 ii mm 



171464 IS: 
2$: 



000100 171336 



*********** 

;AT25--TEST#65- 

*********** 



65 
AT26 

1§ 

HI 

BEO 

TSTB 

BNE 

ERROR 

STRDRV 

55 

BIS 

NOP 

NOP 

ERROR 

POPSP2 

CHAIN 



3$: 



m 

6$: 



WBH*iffiHHi!p¥ D BLHZHs 4 8fJ! II!BMPT 



|LSIH,(aSR 
f ?KS 



#BIT6,(1TKS 



?TEST NUMBER 

?NEXT TEST 

ITERATION COUNT 

?SCOPE ENTRY 

?SKIP TEST IF NOT AN LSI-11 

?DONE SHOULD BE SET 

JRECEIVER DONE NOT SET 
JSET RECEIVER INTERRUPT 
;VECTOR TO 5$ 
JENABLE INTERRUPT 

? 5 E £ EI . VER DID N °T INTERRUPT 

? £k E £X 2 P THE st ack 

?CHAIN TO NEXT TEST 



IS 



jiiii, 

Wmml 
Wilt? 



# 



EO LA36 TERM (DLU & KLll) 
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007270 000066 
0^7272 177777 

mm 

032777 001000 

m * iiwii in276 
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7316 104001 

M mW 

7532 IQOdoi 



mm 



7336 104063 

jlj 95?^? 000100 

Pf WHS 

7354 005077 171232 

- X x2360 104005 

8p« fa 



« ********** 

JAT26— TESTft66- 



j ********** 
AT26 



•CHECK THAT READING TKB CLEARS DONE BIT 
AND THAT DONE CLEARED DOES NOT CAUSE AN 



171406 IS! 
2S: 

1713 70 3$: 

4$: 
171242 

5$: 

6$: 



66 

il 

BEQ 

TSTB 

BNE 

ERROR 

MOV 

TSTB 

BPL 

ERROR 

STRDRV 

BIS 
NOP 
NOP 
CLR 
CHAIN 

ERROR 

POPSP2 

BR 



#LSIll r *lSR 

§f KS 

»TKB # CNTR 

|tks 



#BIT6,gTKS 

PTKS 
IS 



?TEST NUMBER 
JLAST TEST 

JSKIP TEST IF NOT AN LSI-11 

?MAKE SURE DONE IS STILL SET 

7RECEIVER DONE NOT SET 

JREAD DATA BUFFER 

JCHECK THE DONE BIT 

JOK 

^READING DATA BUFFER DID NOT CLEAR DONE 

;SET RECEIVER INTERRUPT 

;VECTOR TO 6$ 

;ENABLE INTERRUPT 



;OK- CLEAN UP 
JEXIT TESTS 

;DLV INTERRUPTED WITH DONE CLEAR 
?CLEAN UP THE STACK 

;exit tests 



) 
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56500 



i\ 
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.SBTTL LA36 PRINTER TESTS 



THE LA36 PRINTER TESTS HILL BE EXECUTED IN A 
CONTINOUS LOOP OUTPUTTING TO ALL MULTIPLE DLll'S 
IF SR BIT 8 IS SET Tn ZERO AT START UP TIME. IF 
BIT 8 IS SET TO 1 AT START UP THEY MAY BE EXECUTED 
INDIYIDUALLY ONCE OR CONTINUALLY LOOPED, OR 
BECOME THE FIRST OF THE ENTIRE SEQUENCE OF PRINTER 
TESTS. REFERENCE INTRUSIONS IN THE INTRODUCTION 
FOR PROPER MODE OF OPERATION. 

XXXXXXXXXX 

PTO — DATA PATH TEST— FOUR LINES OF ALTERNATING 

»*" AND "U" ARE PRINTED, OUT TO THE GIVEN PAPER 
WIDTH. THE PATTERN WILL APPEAR AS FOLLOWS. 

*U*U*U*U*U*U 
U*U*U*U*U*U* 
*U*U*U*U*U*U 
U*U*U*U*U*U* 



XXXXXXXXXX 



hot 



104005 
000757 





PT1 

PRTHDR 

TYPEM 

HDRO 

MOV 

MOV 

MOV 

MOV 

PRINTC 

SWAB 

DEC 

BNE 

SWAB 

CRLF 

DEC 

BNE 

CHAIN 

BR 



# M U* £ P3 

ml 

WIDTH, Rl 



SI 

35 
R3 

8 



?TEST NUMBER 
jNEXT TEST 

;PRINT COLUMN # MESG 

;SET FIRST CHAR PAIR 

?SET LINE COUNT 

;SET CHAR PAIR 

?SET COLUMN COUNT 

?PRINT CHAR 

;SET NEXT CHAR 

?DEC COLUMN COUNT 

;KINISH LINE 

;SET NEXT LINE START CHAR 

;SEND CR-LF 

?DEC LINE COUNT 

FINISH TEST 

>ALL DONE, EXIT 

;REPEAT TEST 
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8200 



J8 07 46 

mm 
mm 

012700 

m\i 

000207 



000200 



000003 



000040 
000040 



^XXXXXXXXXX 

JPT1 — PRINTER CHARACTER TEST 

JXXXXXXXXXX 



1$: 

2$: 



3$: 



SPSP: 
1$: 



PRTHDR 

MOV 

MOV 

MOV 

MOVB 

JSR 

MOVB 

JSR 

MOV 

MOVB 

PRINTC 

DEC 

RNE 

CRLF 

CMPB 

TSTB 

CMP 

BLO 

CHAIN 

BR 

MOV 

PRINTC 

DEC 

BNE 

MOV 

PRINTC 

MOV 

PRINTC 

RTS 



#40, Rl 

fi&Bi 

ri,p5 
pc,spsp 

R2,P0 
PC, SPSP 

m;r4 

R3,R0 



R4 
3$ 



[,#200 



P 
2 

#!,R4 

?l 

#40, RO 
#40, RO 
PC 



— PRINTS ALL PRINTABLE CHARACTERS 



?TEST NUMBER 
?NEXT TEST 

;SPACE TO Rl 

?9 TO R2 

;\ TO R3 

;CHAR TO RO 

JSEND TWO SPACES 

JNETT CHAR TO RO 

;SEND TWO SPACES 

JPRINT COUNT TO R4 

?THIRD CHAR TO RO 

?PRINT THE CHAR 

;three TIMES -> 

;BRANCH IF NOT 

^CARRIAGE RETURN LINE FEED 

?NEXT CHARACTERS 

?CHECK IF ALL DONE 
?BRANCH IF NOT 
JEXIT TD NEXT TEST 
;REPEAT TEST 
?PRINT COUNT TO R4 
?PRINT CHAR 
?THREE TIMES? 
;BRANCH IF NOT 
?SPACE TO RO 
;SEND A SPACE 
;SPACE TO RO 
?SEND ANOTHER 
?RETURN 



• • 
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007652 

mm 
mm 

007666 

mm 

007674 



12800 007676 



12900 



007712 
007715 

mm 

007726 
007742 



000002 

Mil 

012701 007676 

012703 010137 

lip 
to 

012704 000003 
104015 

M\H 

005302 

ll\M i77fi72 



060 

11 

60 

m 

060 



000753 

34012 



MM? 



110 

m 



062 
40 



III 



060 

IS 
?i 4 ? 



Pi 

40 
114 



?XXXXXXXXXX 

;PT2 — NON-PRINTING CHARACTER TEST. 

J PRINTS THE OCTAL CODE FOLLOWED BY THE MNEMONIC 
? "" "" -"•-- * — 

; 
? 
} 

) 



OF ALL 
MON 



NON-PRINTING CHARACTERS. FOLL 
THE PRINTER IS DRIVEN BV THE 



MNEML. ,.. __ 

CODE (600 THROUGH 037 PLOS 177 

ALL CONTROL CHARACTERS 

WILL RE SKIPPED, REFER 
TESTED. 



OWING EACH 

" ^-PRINTING 



iM ! fog<iffllB B rBIIVEH¥ ,, 8i 



JXXXXXXXXXX 

PT2: 



) 



IS: 

4§i 



5$: 



7$: 



2 

PT3 

PRTHDR 

MOV 

MOV 

m 

CMPB 

PEQ 

MOVB 

PRINTC 

DEC 

BNE 

MQVB 

MOV 

PRINTC 

DEC 

BNE 

DEC 

BEG 

JSR 

PRINTC 

BR 

CRLF 

BR 

CRLF 

CHAIN 



ftlDEZfRl 



NPCODE,R3 

Ml* 

(R3),#55 
(?D+rR0 
R4 

fc R0 



H 

R2 
6S 
PC,SP2 

3S 



;TEST NUMBER 

;NEXT TEST 

>PRINT TEST HEADER 

5ADnR OP IDENT TO Rl 

?ADDR OF NON-PRINT-CODES TO R3 

* M Q« 3 F IB'S PER LINE TO R2 

?NO. OF CHARS PER ID TO R4 

??ERO TERMINATOR IN NP TABLE? 

;BRANCH IF YES 

;GET ID CHARACTERS 

;AND PRINT A 

?GROUP OF 

;B CHARACTERS 

;GET NP CODE FROM TABLE 

? AND 

?TRV TO PRINT IT 



mm 



;more to go on this line ? 



;BRINCH 
;SEND 3 



IF NO 
SPACES 



JBRANCH TO CONTINUE LINE 
JGO DO NEXT LINE 



?CHAIN TO NEXT TEST 



.ASCII /000 NUL001 SOH002 STX/ 



.ASCII /006 ACK020 DLS021 DC1/ 
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IK 



7745 

.Ml 

13000 057756 
07772 



13100 




13500 



13600 



13700 010157 



MH 



-0033 
10036 

kh 

00 47 
0052 
0055 

8313 

0066 
«*0071 

010102 



1113 



1127 
1132 



147 

m 



m 

103 
062 
040 



040 

m 

104 

III 
III 

040 
040 

60 
040 

m 

40 
040 

m 

40 
114 



036 
055 



104 



103 

til 
ill 

123 



063 
040 
116 

(ft 
III 

063 

040 
040 
065 
107 
60 

nl 

063 
040 

}Q4 



m 

024 
025 

m 



062 
104 

m 

103 

in 

064 
065 
lift 

i 

IS 

060 
103 
060 
40 

63 

m 

064 
106 
060 
40 
123 

9 fi 3 
040 
40 
067 
125 
061 

?o 4 ? 

m 
m 

177 



-ASCII /022 DC2023 DC3024 DC4/ 



.ASCII /025 NAK026 SYN027 ETB/ 



.ASCII /030 CAN031 EM 032 SUB/ 



.ASCII /034 FS 035 GS 036 RS / 



.ASCII /037 US 177 DEL / 



J 



.BYTE 

.BYTE 

.BYTE 
.EVEN 



0,2,6,20,21,22,23,24 

25,25,27,30,31,32,34,35 

36,37,177,55 
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?XXXXXXXXXX 



?PT3 

1 

} 



— CARRIAGE RETURN TEST 

THE LINE CONSISTS OF A STRING OF O'S AND 
X'S. FIRST, THE O'S ARE PRINTED OUT TO THE LAST 
S9kS!ft,.S T IS ^fP£CE SEPARATING EACH. THEN THE 
li R p R S}gT E EDlN S g A ?gE D N T g E fu H R E NE F D R T S S JWWMR' tM 

iinUull S^mmS." SPACES BET » EEN 



JXXXXXXXXXX 



mm 

000117 



000001 
000130 



000002 
170402 



1$: 
2$: 



ill 



170406 
170356 



3 

PT4 

PRTHDR 

CLR 

MOV 

MOV 

PRINTC 

DEC 

BEQ 

JSR 

DEC 

BNE 

CR 

MOV 

MOV 

JSR 

DEC 

BNE 

MOV 

PRINTC 

CR 

ADD 

CMP 

BLO 

LF 

CHAIN 

BR 




#2,SPCNT 
SPCNT, WIDTH 
4$ 



;TEST NUMBER 

;NEXT TEST 

;TVPE HEADER 

;CLEAR SPACE COUNTER 

?POSITION COUNTER TO Rl 

?"0" TO RO 

JPRINT THE "Q" 

JDECREMENT POSITION COUNTER 

'BRANCH IF 

SEND SPACE 

SSSSSM 5 ^ POSITION COUNTER 

BRANCH IF NOT ZERO 

SEND A CR 

SPACE, COUNTER SET TO t 

39a 0(L SPACES TO Rl 

SEND SPACE 

SSSFJMENT SPACE COUNTER 

BRANCH IF NOT ZERO 

"X" INTO RO 

PRINT "X" 

PRINT CR 

INCREMENT SPACE COUNT BY 2 

SrrnJh E if°!owe§ n C0UNTER WITH colm - C0UNT 

SEND LF 

CHAIN TO NEXT TEST 

REPEAT TEST 
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\ 




mm 

010444 

MM* 



170334 
000100 



mm 



000137 



am 



170326 



;xxxxxxxxxx 

;PT4 ~ MULTIPLE LINE FEED TEST — 63 LINE FEEDS ARE 



SENT WITH A REFERENCE LINE AT THE START AND END. 

MBS" SAT S WIL R J N SI D lI?uig IB?ftSa T ¥B B T Six| BR,,SB " LINE 
NUMBER OR REFERENCE LINE IS PRINTED. 



?XXXXXXXXXX 



PT4: 
1$: 



III 



m 



060 
064 
061 
062 



4 

PT5 

PRTHDR 

MOV 

MOV 

MOV 

JSR 

MOV 

LF 

DEC 

BNE 

ASL 

CMP 

BEQ 

MOVB 

PRINTC 

MOVB 

PRINTC 

CR 

BR 

MOV 

JSR 

LF 

CHAIN 

BR 

MOVB 

PRINTC 

MOVB 

PRINTC 

TST 

MOV 

PRINTC 

DEC 

RNE 

CR 

RTS 

-ASCII 



#1,LFCNT 

WIDTH,R1 

#LINE3,R2 

PC,REF 

LFCNT,R1 




(R2)+,R0 

WIDTH,R1 
PC,REF 



(R2) 

n 

PC 
/01020408163200/ 



♦,R0 
) + ,R0 



«»Q 



;test number 

?next test 

jtype header 

;line feed count to i 

;COLUMN COUNT TO Rl 
;addr OF NUMBER FIELD TO R2 
;PRINT REFERENCE LINE 
?LINE FEED COUNT TO Rl 
?SEND LF 

recrement counter 
;rranch if not vet o 
;double line feed count 
?test if count is 32 
;branch if =32/ end 
?number to ro 

;PRINT IT 

?NUMBER TO RO 

7PRINT IT 

;PRINT CR 

;DRIVE THE LINEFEEDS 

?COLUMN COUNT TO Rl 

?SEND END REFERENCE LINE 

;advance paper 

;repeat test 
;number to ro 

?PRINT IT 

;number to ro 
jprint it 
decrease counter by 2 

"""" ' ' TO RO 



:DASH (-) 
PRINT IT 



?BI?85 M . ENT COLUMN COUNTER 
JBRANCH IF NO ZERO 
?PRINT CR 
JRETURN 



• • 
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000060 



063 
100 




170016 
000061 



000071 
000060 



JXXXXXXXXXX 

?PT5— SINGLE LINE FEED TEST — TESTS THE LINE FEED 

? CAPABILITY FROM ALL COLUMNS. 

;XXXXXXXXXX 



PT5: 

is: 

2S: 



000204 



4S: 
5S: 



6$: 



2$: 



PT6 

PRTHDR 

MOV 

TST 

MOV 

PRINTC 

DEC 

BNE 

MOV 

PRINTC 

PRINTC 

CMP 

BEQ 

MOV 

DELAY 

88v 

MOV 

PRINTC 

DEC 

BNE 

CRLF 

MOV 

MOV 

PRINTC 

LF 

DEC 

BNE 

CR 

JSR 

SBV 

DELAY 

JSR 

CRLF 

CHAIN 

BR 

MOV 

MOV 

PRINTC 

DEC 

REQ 

INC 

CMP 

BLOS 

MOV 

BR 

RTS 



WIDTH, Rl 
RO 



-*wi- 



#62, RO 

WIDTH,#132. 
#3410, RO 

MM 1 
l\ 

PC,PT5AL 
#1750, RO 
PC,PT5AL 



WIDTH.R1 
#61, RO 

Rl 

U 

R0,#71 
#60, RO 



?TEST NUMBER 
JNEXT TEST 
?TYPE HEADER 
JCOLUMN COUNT TO Rl 
^DECREASE BY 2 
;*0* TO RO 
JSEND 

^decrement column counter 
;rranch if not zero 

?SEND A 2 

JSEND A SECOND TWO 

JDELAY 1.8 SEC 



?3*S TO ro 
;64 TO COUNTER 
?SEND CHARACTER 
^DECREMENT COUNT 
?BRANCH IF NOT ZERO 
JSEND A CR-LF 
>NO. COLUMNS TO Rl 
JRACKSLASH TO RO 
?SEND IT 
;PRINT LF 

JDECREMENT COUNTER 
;BRANCH IF NOT ZERO. 
?SSND CR 
>SEND REF LINE #1 



miWIsF 



;SEND A SECOND REF. 
?SEND A CR,LF 
*£SMBL T 2 NEXT TEST 
JREPEAT TEST 
JCOLUMN COUNT TO Rl 
? „j„ 



TO 



DECREMENT COUNTER 

;RRANCH IF=0 

INCREMENT CHARACTER 

JCOMP CHAR TO "9" 

?RRANCH IF LOWER OR SAME 

;RESET CHAR TO "0" 

;CONTINUE 

?FINISHED, RETURN TO CALLER 



"I 
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,XXXXXXXXXX 

I" 6 " !tSL , »S!ir%n!i, R !»! E KE a iiI l, Eiil[ e yi 



SEQ 0101 



ISTS 



2F.5? INTING A R*CKSLASH^"BACKSPACE*Ai5D , 'FORWARn 



PT6: 



000204 



5$: 



6 

PT7 

PRTHDR 

mh h 

MOV 

TST 

MOV 

PRINTC 

DEC 

BNE 

MOV 

PRINTC 

PRINTC 

CMP 

BEQ 

MOV 

DELAY 

BR 

MOV 

MOV 

PRINTC 

DEC 

BNE 

CRLF 

MOV 

MOV 

PRINTC 

MOV 

PRINTC 

MOV 

PRINTC 

DEC 

BNE 

LF 

CR 

CRLF 

MOV 

DELAY 

JSR 

CRLF 

CHAIN 

BR 



WIDTH, Rl 

iSKio 

Rl 
#62, RO 

WIDTH, #132. 
#3410, RO 
5S 

fflt% 

#10, RO 

#57, RO 

Rl 
65 

PC,PT5AL 
#1750, RO 
PC,PT5AL 

1$ 



?T J§I NUMBER 
JNEXT TEST 
?PRINT HEADER 
;PRINT COLUMN # MESG 

JCOLUMN COUNT TO Rl 

{BfS R f8 E H RY 2 

?SEND 

JDECREMENT COLUMN COUNTER 

l«2^?8 Vo NQT ZER0 

;SEND A M 2" 

;SEND A SECOND n 2 n 

?COMPARE COLUMN COUNT 

;DELAY 1.8 SEC 

;3'S TO RO 
?25..I° CH»R COUNT 
?SEND CHAR 

»D5£SS MEMT CH *R count 

?CONTINUE IF NOT DONE 
;SENO A CR,LF 
?G Q JjyjJ N COUNT TO Rl 

;backslash to ro 

;SEND IT 

JBACKSPACE TO RO 
;SEND IT 
,PQRMORD SLUR TO RO 

?end of paper 
;branch if no 

;SEND LF 

;SEND CR 

?SE»JD REF LINE #1 

;SEND A CR,LF 

?DELAY 1 SEC 

I5EEB Pm r nr LINE 
!R E JIS T T ? E i?" TEST 



"> 
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7434 
0046 



?XXXXXXXXXX 



>PT7~ 

; 



OVERPRINT TEST— k ROW OF ALTERNATING M'S AND 

P^ES ARE PRINTED, OUT TO THE LAST COLUMN AND OVERPRINTED TWICE. 

A SECOND LINE dF ALTERNATING SPACES AND "a'S" IS THEN 

SENT 3 TIMES AS THE FIRST LINE. THIS IS FOLLOWED 

BY A THIRD AND FINAL LINE OF ALTERNATING '&' 

AND SPACES. 



?XXXXXXXXXX 



IS: 

m 



10$: 
11$: 



hi 



#2,R3 

"ifeW 




14$ 

PC,SPC 

Rl 



;TEST NUMBER 

;NEXT TEST 

;PRINT MESSAGE 

;2 COUNT TO R3 

'H°& 9E COLUMNS TO Rl 

;«M« TO RO 

;SEND IT 

?END OF LINE 

?BRANCH IF YES 

?SEND SPACE 

;EN0 OF LINE? 

JBRANCH IF NO 

?BRANCH IF NOT FIRST TIME 
•SEND CR 

?8iggS* s ErfcJ HE C0UHTER 

JTHIRD TIME? 
;BRANCH IF NOT 
?NEXT LINE 

?REPEAT COUNTER TO R3 
JCOLUMN COUNT TO Rl 

;DECREASE COLUMN COUNT 

;BRANCH IF 0, END OF LINE 

;"fl" TO RO 

* SE ND I T 

?DECREASE COLUMN COUNT 

pRRANCH IF NOT (NOT END) 

>E!( D 9F. LINE, FIRST TIME? 

JBRANCH IF NOT 

JSEND CR 

JDECREASE LINE COUNTER 

?REPEAT LINE 

*XS?3LX F .I H XRfi REPEAT 

JBRANCH IF NOT 

JDO NEXT LINE 

;LINE REPEAT COUNTER TO R3 

?C0LUMN COUNT TO Rl 

?"S. W TO RO 

;SEND IT 

;DECREASE COLUMN COUNT 

;BRANCH IF END 

JSEND SPACE 

^DECREASE COLUMN COUNT 



LA36 TERM (DLll 
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"2 



.1260 104012 



& KLll) MACRO MlllO 25-AUG-78 10:13 PAGE 49-1 



000002 



15$: 



BNE 


13$ 


CMP 

BNE 


R* 


CR 




DEC 


R3 


BR 


fcl s 


TST 


BNE 


15$ 


CRLF 




CHAIN 




BR 


1$ 



JBRANCH IF NOT END 
JTEST IF FIRST TIME 

•SENT C CR IF ' FTRST TIME 

JDECREASE REPEAT COUNTER 

;PRINT LINE AGAIN 

JTEST IF END, R3=0 

JBRANCH IF NOT END 

JSEND CR,LF 

JCHAIN TO NEXT TEST 

;repeat TEST 



m II 
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} 




;PT10 — PANTING FREQUENCY TEST— 120 H'S ARE PRINTED ON 4 LINES 



000010 



000074 
177724 
177716 

000036 



?.S« p l R ^k I Si^r- T Sit If^L^ullRRtLIB** between the first and second 

s!b Ie 3 \IWAW V »nraihc«H m l h i?pja N N Tf?r EASED 
?5g?g R cHISSc?ifeyTSfs T gI^? E 5§^f^a^^Is^i A ?§ L ^!S{!gf R out to the 



yxxxxxxxxxx 



IS! 



NEW DELAY = OLD DELAY C+ OR -1 (OLD DELAY/16 + OLD DELAY/128 ) 



?TEST NUMBER 

JNEXT TEST 

?TYPE MESSAGE 

;SET Rl=30 

?SET CHAR COUNT = 120 

JSET UP DELAY VALUE 




DELAY 

DEC. COUNT OF _ 

BRANCH IF 0, EN 



ARS PER LINE 
IF LINE 



I 

;tiKANUH ir \J f CNU UK LI 
>8E9EEM E 8 T CHft R COUNTER 

;branch if end 
;get old delay 
;cal 1/16 of old delay 



;SAVE 1/16 IN R5 

?CAL 1/128 OF OLD DELAY 

?1/16 +1/128 TO R5 

?TEST WHICH HALF OF THE 120 CHARS. 

fa &u¥ih¥ lkA Bv 34 kec - 

ft! ?iK»"iIhS BB DEL,Y 0E 34 MEC - 

;sind crlf 

JSET Rl = 3fl 

JSEND CR,LF 

7CHAIN TO NEXT TEST 

;REPEAT TEST 



") 
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00011 

PP 

012700 

_ .. 005301 
1450 001372 

\m mm 




50 800 
50900 
51000 



000030 
000130 



5? 



003720 
000042 



JXXXXXXXXXX 



?PT11— RIBBON FEED TEST— THIS TEST PRINTS A SINGLP mm 



MN OF X'S 



PROPER OPERATION. 



?XXXXXXXXXX 



PTll: 



11 

PT12 

PRTHDR 

MOV 

MOV 

PRINTC 

CRLF 

DEC 

BNE 

CHAIN 



t!W 



;test number 

?NEXT TEST 

?TYPE MESSAGE 

?SET Rl=24(10), LINE COUNT 

;SET CHAR = X 

JPRINT X 

;SEND CR-LF 

JDECREMENT LINE COUNT 

f|«| A vLMx? n ; E ?? NE test 



TEST 



;xxxxxxxxxx 



;PT12- 
; 

; 

jXXXXXX] 

PT12: 

PT12A: 

is: 



PRINTER BELL TEST — THE LAST TEST TN THF 
PRINTER TEST SEQUENCE. THIS TEST OUTPUTS 
EIGHT BELL SIGNALS TO THE PRINTER UUTHUT5 



LOGICAL 

here: 



12 

PTO 

PRTHDR 
MOV 
MOV 

PRINTC 
DEC 
BNE 
LF 
MOV 
DELAY 
MOV 
BEQ 
NOP 
:JSR 
NOP 
NOP 
NOP 
CHAIN 
BR 



#10, Rl 

#7,60 

Rl 
IS 

*3720,R0 

@&42,R0 
HERE 

PC„(R0) 



?THIS TEST 
?NEXT TEST 
?TYPE HEADER 
;COUNTER TO Rl 

;bell TO RO 
;send it 

;decrement count 
branch if not zero 

jdelay 2 sec before restarting 
JES5SS.JE ^ DER ACT1 * 0R x *dp 

; ?°HXIN nE T 5ST SEQUENCE 
;A RESET WAS FORMERLY HERE 



?CHAIN TO NEXT TEST 
;REPEAT TEST 
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mm 
Mill 

"05067 
16704 
12767 



000030 



000336 

,Q 



mm 




000066 
000062 
000056 



JXXXXXXXXXX 



LIFE 
THIS 



\m 



_ FULL LINES OF EACH PRINTABLE 
BJSPRINTS THE SECOND LINE 4 TIMES- 



CHARACTER _._ _.... ..._ . 

fHIS TEST IS CONTINUOUS RUNNING ONCE INITIATED, 

LOOPING AUTOMATICALLY ON ITSELF. 

END OF PASS COUNT IS CLEARED WHENEVER TEST IS RESTARTED 



20 S: 



jxxxxxxxxxx 

PT17B: 17 n 
PT17B 
JMP 

PT17: 17 

PT17B 

CLR 

MOV 

MOV 

PRTHDR 

TVPEM 

HDRO 

PT17DS MOV 
INC 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 

BTOASC 
MOV 
MOV 
JSR 
PRINTC 
DEC 
BGT 
JSR 
CRLF 
MOV 
MOV 
MOV 
JSR 
PRINTC 
DEC 
BGT 
CR 
DEC 
BNE 
JSR 
LF 
INC 
CMP 
BNE 
JSR 
JSR 
JSR 



PASCNT 

WIDTH.R4 

#1,DIRTN 



PASCNT 

PASCNT, #31 

20$ 

#1, PASCNT 

fPASHESg-RO 

5i!W' R1 

PC,CKPOS 



PC, ft 



*5,R2 
WIDTH, Rl 
R3,R0 
PC,CKPOS 



PC,ADJR4 

|?77,R3 

PC,ADJR4 
PC,ADJR4 
PC,ADJR4 



^CONTINUE 

JTEST NUMBER 

JNEXT TEST 

;CLEAR PASS COUNT 

JINITIALIZE R4 

JAND DIRECTION OF PRECESS 

JPRINT COLUMN # MESG 

JSET START CHAR 

;DO 31 TIMES 

JBRANCH IF NOT DONE 

jSTART OVER 

;SET MESG ADDR 

J« TO CONVERT 

;| DIGITS 

jCONVERT PASCNT TO ASCII 

J SET COLUMN COUNT 

;GET CHARACTER 

;TIME TO INSERT PASS # ? 

JSEND CHAR 

^DECREMENT COUNT 

JBRANCH IF NOT DONE 

;ADJUST R4 POINTER 

JSET OVERPRINT COUNT 

JSET COLUMN COUNT 

JGET CHARACTER 

JTIME TO INSERT PASS # ? 

;SEND CHAR 

DECREMENT COUNT 

JBRANCH IF NOT DONE 

JSEND CR 

JDQNE OVERPRINTS ? 

jNO. CONTINUE 

;ADJUST R4 POINTER 

JSEND LF 

JSET NEXT CHAR 

JDONE CHAR SET ? 

JNO. CONTINUE 

JOFFSET POINTER 3 PLACES 

JTO RETAIN VISUAL ALIGNMENT 

JTHROUGH END OF PASS 
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TYPEM 
ENDPAS 
CHAIN 
BR 



JTVPE END OF PASS MESG 
JREPEAT TEST 



II 
w 



♦ f 
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000026 



IS: 
ADJR4: 



1$: 

2$: 
3$: 

DIRTN: 
PASCNT: 



CMP 

BNE 

MOV 

PRINTC 

MOVB 

PRINTC 

MOVB 

PRINTC 

MO? 

PRINTC 

SOB 

ADD 

RTS 

TST 

BNE 

INC 

CMP 

BLOS 

MOV 

DEC 

bT 

DEC 
CMP 
BLT 

MOV 
CLR 
RTS 

.WORD 

.WORD 



R4,R1 
Ho,RQ 
PASMES,R0 
PASMES*1,R0 
#40, RO 



R4, WIDTH 

WIDTH, R4 

R4 

ii, DIRTN 



;IS IT TIME TO INSERT PUSS # ? 
JRRANCH IF NO 
JPRINT A SPACE 

;PRINT MSG OF P&SS COUNT 



JPRINT h SPACE 

? ADJUST RETURN PC OVER PRINTC 



>X£ S T DIRECTION OF PRECESS 
;BR IF LEFT 

^INCREASE POSITION CNTR 
;l| R4 > WIDTH ? 

(M* 

? TO 
} LEFT- 



) 



i*Sg E H SlRi§¥$Sg H 



PC 






i6tn 



SDECREASE POSITION CNTR 



JLESS THAN 4 ? 

?BR IF YES 



R4 §8 POS 
GE flRECT 



jCfUNGE BIRECflON TO RIGHT 
;EXIT 

^DIRECTION OF PRECESS (0=LEFT) 
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ml 

-.5302 
003373 

mm 



000036 
000177 



000060 
166444 
166450 



.SBTTL 
XXXXXXXXXX 



LA36 ECHO TESTS 



CHARACTER ECHO TEST— ALL 
NON-PRINTlNG_CHARACTERS_ TYPED ON~ THE" KEYBOARD 



ALL PRINTABLE AND 



ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT 
5r.Xi M Sr-^* "RUBOUT" HILL CAUSE THE TEST TO RE 
TERMINATED* 



XXXXXXXXXX* 



E*O20: 
l$: 



166536 
166444 



E021 

PRTHDR 

READ 

MOV 

DELAY 

CMP 

BEQ 

PPNT 

MOVB 

BR 

TYPEM 

ECOEND 

CHAIN 

BR 



»30.,R0 

U77,TEMPCH 
2$ 

PTKB,GTPB 



;test number 

?next test 

jtype header 

;go wait for keyboard input 

jdelay for half duplex 

jcheck if rubout 

jbranch if yes 

jno. check printer ready 

JREADY, ECHO CHARACTER 

SPRINT TERMINATION MESSAGE 

;CHAIN TO NEXT TEST 
;REPEAT TEST 



r 



XXXXXXXXXX 

E021 — LINE ECHO TEST, FAST RATE— THIS TEST WILL 

CA»SE THE CONTINUAL PRINTING OF "0" AT THE MAXIMUM 
gAJONTIL EITHER ANOTHER CHARACTER IS SELECTED 

" A KEY ON THE KEYBOARD OR TERMINATION BY THE 



BY PRESSING 
RUBOUT. 



J XXXXXXXXXX 



166460 E021A: 
2l: 



21 

E022 

PRTHDR 

MOV 

MOV 

MOV 

PRINTC 

DEC 

BGT 

CRLF 



#60,REPT 
WIDTH, R2 
REPT,R0 

R2 
2S 



JTEST NUMBER 

;next TEST 

JTYPE HEADER 

?CH ARACTER, TO BE REPEATED (0) 

;SET COLUMN COUNT 

;get CHAR 

JPRINT CHAR 

JDEC COLUMN COUNT 

FINISH LINE 

;SEND A CR AND LF 



jii% 
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XXXXXXXXXX 

E022 ~~ kUl 5 C J!9, T£ ST ' SL0H RATE— SAME AS E021 EXCEPT 

?o HA p T rSd8c E ^ A I lhTc R r°i D n U n CEd BETWEEN ^SrScIe^I" 

^XXXXXXXXXX 

£022: 



ih 



000060 166422 

166406 

166412 



003410 



E022A: 



-023 

PRTHDR 

MOV 

MOV 

MOV 

PRINTC 

DEC 

BEQ 

MOV 

DELAY 

BR 

CRLF 

BR 



#60,REPT 
WIDTH.R2 
REPT,R0 

R2 

15410, RO 



JTYPE HEADER 

{Sg* D c8L88.'SiK* t CFURACTEI! 

;get CHAR 
;PRINT CHAR 

jdec column count 
;rranch if done line 

;DELAY 1.8 SEC. 
JOUTPUT NEW CHAR. 
JSEND A CR AND LF 



M 
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1W 

1 



I 



228 

8100 
8230 

8300 
8490 

esoo 

8600 

8700 

8830 

89D0 

9000 

9100 

9290 

9390 

9430 

9500 

9690 

9790 

9800 

9900 

10000 

10100 

10200 

10300 

10400 

1S500 



18*1 

** £ 76 
01 



2336 
2341 

2345 
23 46 
»351 



2356 

m 

2365 
2371 

Mi 
til 

.2406 

Ml 

2421 

mi 

.2426 
.2431 

Ami 

012436 



l 4 
M 
)1* 

105 
040 

|H 
HI 

02 
40 

02 

.40 
110 

040 

l\i 

'26 

3Q 



.40 
103 
040 
123 
40 

m 

J5o 4 

104 

18 

J3o 4 
III 

m 
m 

105 
40 

105 



125 
117 
124 
124 
117 
116 
103 
105 
123 
124 
106 
124 
106 
122 
117 
111 
114 
103 
103 
103 
103 
101 
131 
124 
101 
115 



114 
110 
130 
130 
124 
121 
113 
114 
040 
040 
040 
40 
040 
040 
040 
040 
105 
061 
362 
063 
064 
113 
116 
102 
116 
040 



THIS FOLLOWING TABLE IS USED BY TEST E023 



ASCII 


/NUL 


/ 


ASCII 


/SDH 


/ 


ASCII 


/STX 


/ 


ASCII 


/ETX 


/ 


ASCII 


/EOT 


/ 


ASCII 


/ENQ 


/ 


ASCII 


/ACK 


/ 


ASCII 


/BEL 


/ 


ASCII 


/PS 


/ 


ASCII 


/HT 


/ 


ASCII 


/LF 


/ 


ASCII 


/VT 


/ 


ASCII 


/FF 


/ 


ASCII 


/CR 


/ 


ASCII 


/SO 


/ 


ASCII 


/SI 


/ 


ASCII 


/OLE 


/ 


ASCII 


/DC1 


/ 


ASCII 


/DC2 


/ 


ASCII 


/DC3 


/ 


ASCII 


/DC4 


/ 


ASCII 


/NAK 


/ 


ASCII 


/SYN 


/ 


ASCII 


/ETB 


/ 


ASCII 


/CAN 


/ 


ASCII 


/EM 


/ 



.) 
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012441 

mm 

012446 
012451 

mm 

12456 



10600 
10700 

18890 
10900 
11030 



1110O 0124§6 

11200 ~ l 



11300 
11400 



01246 

012471 

nun 



105 
040 

i°4§ 
107 
040 

m 

125 
340 

113 



125 
123 
123 
123 
123 
123 
120 



102 
103 
040 
040 
040 
040 
040 
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ASCII 


/SUB 


/ 


ASCII 


/ESC 


/ 


ASCII 


/FS 


/ 


ASCII 


/GS 


/ 


ASCII 


/RS 


/ 


ISCII 


/US 


/ 


ASCII 


/SP 


/ 
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xxxxxxxxxx 



000323 
013020 
6 




2700 

mi 

01427? 

mm 

012702 
012701 

Mil 



E023— CHARACTER^COOE TEST— ANY CHARACTER SELECTED 
WILL BE ECHOEO ALONG WITH ITS OCTAL CODE. 
A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER 
IF IT IS A NON-PRINTING CHARACTER. 

IHS.KftSn Y 9 F „IH5 R e £ eive d code hill also be 

INDICATED AS EITHER EVEN OR ODD. 



XXXXXXXXXX 



000036 
166160 



000130 
166144 



012272 
000166 



000041 



2$: 



166116 000177 3$: 

013010 
166102 
000040 
000040 



888843 

013010 
000110 



013014 
000072 



014323 

Mil 

mm 



4$: 



1$: 



23 

E024 

PRTHDR 

READ 

MOV 

DELAY 

CMP 

BHIS 

JSR 

MOVB 

ASL 

ASL 

ADD 

JSR 

TYPE 

E023M 

BR 

CMP 

BEQ 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

JSR 

MOV 

JSP 

BR 

JSR 

MOV 

JSR 

TYPE 

E023M 

TYPEM 

ECOEND 

CHAIN 

BR 

MOV 

MOV 

BIC 

ADD 
MOVB 
DEC 
BEQ 



#30. /RO 

TEMPCH,841 

PC,STRLN 
TEMPCH,RQ 

#MONIC f R0 
PC,MOVNUM 




#f,R2 
ttigp.Rl 

PCHAR £ R0 

R0,-(R1) 
2S 



jtest number 

?next test 

jtype header 

;go wait for character 

?delay for half duplex 

;test if char is printable 
?branch if it is 
;store code into message 
jget code again 



?MULT BY 2 
?MULT BY 4 



;ADD ADDR OF MNEMONIC TABLE 
?MOV MNEMONIC TO MESSAGE 
;TYPE CnDE AND MNEMONIC 
) ADDRESS OF MESSAGE 
;GO WAIT FOR NEXT CHARACTER 
JTEST IF CHAR IS A RUBOUT 
;rranch IF RUBOUT 



;STORE CODE INTO MESSAGE 

?ADDR OF CHAR INTO RO 

?MDVE CHAR INTO MESSAGE 

?TYPE MESSAGE 

?RUBOUT, CONVERT AND STOR CODE 

?ADDR. OF DEL INTO RO 



J TYPE MESSAGE 
;ADDR OF MESSAGE 



>£3AI!L T 2„8E XT test 

JREPEAT TEST 
;COUNT OF 3 TO R2 
?ADDR OF MESG TO Rl 

;pqint to last space in 
;move octal code to ro 
>save ls octal char 
jmake ascii 
?move into mesg 
;decrement char counter 
;branch if 3 moved 



ESHchWM! 1 " 1 <DLU s KL11> H,CRD H1U0 



25-AUG-7B 10:13 PAGE 58-1 



mm 

165752 




1$ 



ASR 
ASR 
ASR 
BR 

VNUMj MOV 

MOV 

MOVB 

DEC 

BNE 

TSTB 

BNE 

MOV 

BR 

MOV 

MOV 

MOVB 

DEC 

BNE 

RTS 



114 MG25: 



.EVEN 
.ASCII 



PCHAR 
PCHAR 
PCHAR 

n 

<j?0) + ,<Rl) + 

IS 
PARITY 

|EVEN,R0 

#ODD,R0 
M,R2 
<JRDH,(R1> + 

n 

i t 



/DEL / 



jnot three, shift next octal 
;character'to the right 



;C0NVERT AND STORE NEXT CHAR 

JRETURN TO CALLER 

;ADDR OF LINES IN Rl 

JCOUNT OF 4 TO R2 

?MOV 4 CHARS TO MESG AREA 

DECREMENT COUNTER 

?branch if not all done 

jtest parity flag 

?branch if odd parity 

;set address for even parity mesg 

;continue 

? 2e t ..,£ d 25 e § s for, odd parity mesg 

;count of 4 to r2 

;move 4 chars to mesg area 

?oecrement counter 

;branch if not done 

? RETURN 

;SAVE CHARACTER CODE 



JMNEMONIC FOR RUBOUT 



> 
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M 



013164 
000003 



104007 

"VII 

0721 

00OSO3 



;XXXXXXXXXX 

?E024~~ SELECTED PATTERN ECHO TEST- 



| CHARACTERS. EACH MILL PIE ECHOED 
*ND_STOREO.UNTIL THE_CNTL£C IS S 



SELECT 1 TO 256 



..._ THE CNTL/C ._ ___„_ 

AT THAT TIME ALL CHARACTERS WILL BE PRINTED AS 
A CONTINOUS STRING UNTIL EITHER THE RUBOUT IS 
SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED 
AGAIN, A TERMINATING CNTL/C FOLLOWED RY ANOTHER 



CNTL/C WLL ALWAYS CAUSE THE LAST INPUTTED STRING TO 
1 8!LERl N TEPf ^A^TERMIHATIMt: CNTL/C FOLLOWED BY A CHARACTER OTHER THAN 
; RUBOUT &ILL CAUSE A NEW STRING TO BE INPUTTED, 
SXXXXXXXXXXX 



) 



E024BS 

IS: 



165626 
165616 



So25 

PRTHDR 

CLR 

MOV 

READ 

HOY 

DELAY 

CMP 

BEQ 

CMP 

BEQ 

CMP 

INC 

PRNT 
MOVB 
BR 



#BUFR # R2 

#30 o „RQ 

#177,TEMPCH 

TERM 

|3,TEMPCH 

OUTPUT 

Rl#«256. 

TEMPCH,(R2)* 

PI 

TEMPCH,PTPB 



STEST NUMBER 

JNEXT TEST 

JTYPE TEST HEADER 

?CLEAR CHARACTER COUNT 

?ADDRESS OF BUFFER TO R2 

?WAIT FOR INPUT 

? DELAY FOR HALF DUPLEX 

jTEST IF RUBOUT 

JBRANCH IF RUBOUT 

;TEST IF CNTL-C 

IBRANCH IF CNTL-C 

?YESf CHECK IF CHAR CNT IS EQ, GT 256 

^INCREMENT CHARACTER COUNT 
?CHECR IF PRINTER READY 
?ECHO CHAR 
?GO MAIT FOR NEXT CHAR 



^SECTION TO OUTPUT CONTINOUS STRING 



R2,#8UFR 
T£MPCH,<R2)* 



1SS 
2$s 




JCHECK IF POINTER IS AT START OF TABLE 

?YES, BRANCH 

^Sf STORE -C IN TABLE 

JSEND A CR LF 

^BUFFER ADDRESS TO R2 

;CHECK IF FIRST CHAR IS ~C 

?YES, LOOK FOR INPUT AGAIN 

?GET CHARACTER 

fDONE STRING? 

?YES. RESTART STRING 

JPRINT CHAR 

^CONTINUE 

JOUTP11T TERMINATION MESSAGE 

ICHAIN TO NEXT TEST 

sREPEAT TEST 

?XNITIALI7E FIRST CHAR AS CNTL-C IN TABLE 

?256 CHARACTER RUFFER 
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fXXXXXXXXXXX 



BELL ECHO TEST-- A MESSAGE IS PRINTED AND 
THE TEST WAITS FOR SOME PRINTABLE CHARACTER 
TO BE SELECTED ON THE KEYBOARD (GT040). THIS 
« r S J M S VALID ONLY IF THE PAPER WIDTH IS GT 64 
£?WWf-TC I EoW§3« C0LBMI ' s kH ^LEGAL BELL TEST 



MESSAGE IS PRINTED* 



mxxxxxxxxx 



165052 000101 IS: 



2Ss 
3$; 



000040 
185034 

164742 



452 
5S: 



25 

EO20 

PRTHDR 

CMP 

BLO 

TYPEM 

E025MA 

BR 

TYPE 

E025MA 

READ 

MOV 

DELAY 

CMP 

BLO 

CMP 

8EQ 

PRNT 

MOVB 

SCRLF 

BR 

TYPEM 

E025MB 

TYPEM 

ECOEND 

CHAIN 

BR 



WIDTH,*101 

4$ 



?t30 e ,R9 



TEMPCH„#40 
3S 



TFMPCH # flTPB 



IS 



?TEST NHMBER 
?NEXT TEST HEADER 
?PPINT HEADER 

SXiiSeft F i^ a SiS?" cou,, " s EQ '" " 4 

?TYPE TEST MESG 

JWAIT FOR CHAR 

ITYPE TEST MESG ON TERM CHAR RCYD ON 

mjT FOR OPERATOR RESPONSE 
IDELAY FOR HALF DUPLEX 

JTEST IF PRINTABLE 

JBRANCH IF NON-PRINTABLE 

ICHECK IF CHAR IS RUBOUT 

?BRANCH IF YES 

ICHECK IF PRINTER IS REIDY 

|PgINT CH5R. (BELL SHOULD SOUND) 

^bfcNu A CRLF 

?REPEAT 

?TYPE ERROR MESSAGE 

IPRINT TERMINATION 

?SXTT TO NEXT TEST 
?REPEAT TEST 
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00 013676 
13701 

■M 

Aim 

013726 
913731 





400 





3734 

1737 

~>42 

45 



600 

8 


700 





800 



o: 



mil 
p 

1756 
3761 

M 

.3772 

■mi 

.4001 

AM 

\m 

.4023 

:«lf 

4034 

mil 

: 4050 
.4051 

m 



o 

f 

o* 

iooo o:. 



51 
...62 
.40 64 

ft 



\\\ 



1100 



014 



:o6 

A\, 16 
-4121 

m 



IV 

40 



002 
10' 



i 11 



101 

040 

m 
m 

051 

m 

iff 
b\l 

113 

m 
III 

Wt 

101 
040 



03 



{I Ul ° L11S1: * ASCIZ ' 00 DLll'S UNDER TEST/<ACRLF><12> 

25 116 



j5 
.40 

060 

JM 

25 

.05 

31 

000 



I 43 
060 
103 



200 STARTM; 



063 
124 

m 

061 
040 

20* 

m 

104 
107 

m 



m 

114 
040 
124 

ill 

i 
m 
m 

III 



.SRTTL MISC. DIAGNOSTIC MESSAGES 

-ASCII <7X2XACRLFX17>/CZLACE0 LA36 TERM (DL11 & KL11) /<ACRLF> 



.ASCII /LA36 TERMINAL DI AGNOSTIC/<ACRLF> 



.ASCIZ /DL11 fi, KL11 INTERFACE/<ACRLFX12> 



ENDPAS: .ASCII <ACRLFX12>/END OF PASS / 

PASMES: .ASCIZ /0000/<ACRLFX12> 
DL11S: .ASCII <ACRLF>/CONSOLE & / 



►00 HDRMSG: .ASCIZ <7X2XACRLFX17X12>/TEST «/ 
HDROJ .ASCIZ /000 COLUMNS/<ACRLFX12> 



zvu 

in 

000 



60 
117 



CZUCEO L&36 TE 
MISC. DIAGNQSTI 

3! 



RM fOLll & 

C MESSAGES 



1600 
1700 



1800 5 : 



2000 o: 

0.. 



4 .45 

4 50 



w 

_4232 

m 

m 

tm 

4264 

m 

4275 
4300 

mi 

311 



4323 

'-VJ 

4332 
4335 
4340 

m\ 

4347 

Wl 

4360 

811 



til 



11 i! 



ft 

in 

000 



!!! 

m 
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E025MA: .ASCII /TYPE ANY PRINTABLE CHARACTER / 



ill 

22 

If? 



J 
III 

200 

m 
m 

125 

iff f 

4 



Oil 

II 



m 

056 
056 

m 
$ 

11! 

m 

"17 
I 5 

« 



Hi! 58 I 

4323 040 04 



iU5 I 

!!! 1 



m 

103 

"1 

id 

126 



ta 



.ASCIZ /AND LISTEN FOR BELL. 



10 4 
a 
H 

§1 
sit 

iy 

40 

Hi 

103 ECOEND: .ASCIZ <ACRLF>/ECHO TEST TERMINATED/<ACRLF> 

111 
181 



) 



E025MB: .ASCIZ <ACRLF>/NOT ENOUGH COLUMN5/<ACRLF> 



^ ^ E023M: .ASCII / / 
040 LINE5: .ASCII / / 

040 LINE5A: .ASCIZ / 



JMESG FOR TEST E024 
/<ACRLF> 



MESG3: .ASCIZ <ACRLFX17><12>/SELECT TEST NUMBER / 



III 

1H 

m 

105 EVEN: .ASCII /EVEN/ 
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2100 
22D0 ! 



2400 

2S88 



^lob 5 

l44?4 
4407 
4412 

im 

4423 
.4424 

mi 

4435 
4440 

44« 
_4451 

urn 

.4462 

mi 



500 
.25 

1 

i 40 

■11 

.05 

n 

l 2 

3°4 

m 

000301 



104 

III 

m 

m 

123 

HI 

122 



III 

111 



ODD: 

opmsg: 






104 

m 
m 
m 

105 NOSWR 

18 



.ASCII 
-ASCIZ 



/ODD / 

/TYPE ANY CHARACTER/ 



.ASCIZ /USE SOFTWARE SWITCH REG AT MEMORY ADDR 176/<7> 



040 

m 
m 

040 
066 



CZLACEO LA36 TERM (OL11 & KL11) MACRO M1110 
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13 

8 



007112 



BRCTR 000664 
BTOASC= 104023 
BUFR 913164 
CHAIN - 104005 

• abs - mm 

ERRORS detected: 



012112 

8S8U1 

000656 

mat 

014051 
014064 

mm 



END2A 
END3 

ESS3 

E021 

E021A 

E022 

E022A 

E023 

E023M 

E024 

E024B 

E025 



2232 
2476 



E025MA 

E025MB 

ERR 

ERPHLT 

ERROR = 

EVEN 

FORWD = 

FORWDA 

FORWDB 

FSTDL 

HDRMSG 

HDRO 



003354 

tin 



000704 



2B46 WORDS ( 12 PAGES) 
( 14 PAGES) 



ELAPSED TIME: 

CZLACE.BIN,CZLACE.LST/-SP=CZLACE.MAC 



844 WORDS 
00:52 



007560 
000674 

mm 

000714 



TTY1 

TTYlB 

TYP 

TYPE = 

TYPEM = 

TYPM 

HAITF 

WIDTH 

XCSR 

Saread 

SBTASC 
SCR 
SCRLF 
$FORWD 

SPRHDR 

SPRNT 

SPRTC 

SREAD 

SREADC 

SSCRLF 



831(1 



03562 

P 

04314 

lim 



